diff options
| author | Lars Ingebrigtsen | 2020-10-22 15:36:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-10-22 15:36:59 +0200 |
| commit | 5d152ed73754f3fcd8ce7e08bf1cfcf96e9656bb (patch) | |
| tree | ad607a866691c5ca01e0e8f11e5c359588db6db8 | |
| parent | 45c1be62a1e92f3e688495880664a13d042e718c (diff) | |
| download | emacs-5d152ed73754f3fcd8ce7e08bf1cfcf96e9656bb.tar.gz emacs-5d152ed73754f3fcd8ce7e08bf1cfcf96e9656bb.zip | |
Use HTTP instead of Tramp for the ffap rfc path (and also fix it)
* lisp/ffap.el (ffap-rfc-path): Use an URL instead of an FTP tramp
file, since that's more widely supported (bug#41663).
| -rw-r--r-- | lisp/ffap.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 2c1d3d5bd9d..575821bdeaa 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1049,22 +1049,19 @@ out of NAME." | |||
| 1049 | "/pub/gnu/emacs/elisp-archive/")) | 1049 | "/pub/gnu/emacs/elisp-archive/")) |
| 1050 | (substring name 2)))) | 1050 | (substring name 2)))) |
| 1051 | 1051 | ||
| 1052 | (defcustom ffap-rfc-path | 1052 | (defcustom ffap-rfc-path "https://www.rfc-editor.org/in-notes/rfc%s.txt" |
| 1053 | (concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt") | ||
| 1054 | "A `format' string making a filename for RFC documents. | 1053 | "A `format' string making a filename for RFC documents. |
| 1055 | This can be an ange-ftp or Tramp remote filename to download, or | 1054 | This can be an URL, and ange-ftp or Tramp remote filename to |
| 1056 | a local filename if you have full set of RFCs locally. See also | 1055 | download, or a local filename if you have full set of RFCs |
| 1057 | `ffap-rfc-directories'." | 1056 | locally. See also `ffap-rfc-directories'." |
| 1058 | :type 'string | 1057 | :type 'string |
| 1059 | :version "23.1" | 1058 | :version "28.1") |
| 1060 | :group 'ffap) | ||
| 1061 | 1059 | ||
| 1062 | (defcustom ffap-rfc-directories nil | 1060 | (defcustom ffap-rfc-directories nil |
| 1063 | "A list of directories to look for RFC files. | 1061 | "A list of directories to look for RFC files. |
| 1064 | If a given RFC isn't in these then `ffap-rfc-path' is offered." | 1062 | If a given RFC isn't in these then `ffap-rfc-path' is offered." |
| 1065 | :type '(repeat directory) | 1063 | :type '(repeat directory) |
| 1066 | :version "23.1" | 1064 | :version "23.1") |
| 1067 | :group 'ffap) | ||
| 1068 | 1065 | ||
| 1069 | (defun ffap-rfc (name) | 1066 | (defun ffap-rfc (name) |
| 1070 | (let ((num (match-string 1 name))) | 1067 | (let ((num (match-string 1 name))) |