aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2020-10-22 15:36:59 +0200
committerLars Ingebrigtsen2020-10-22 15:36:59 +0200
commit5d152ed73754f3fcd8ce7e08bf1cfcf96e9656bb (patch)
treead607a866691c5ca01e0e8f11e5c359588db6db8
parent45c1be62a1e92f3e688495880664a13d042e718c (diff)
downloademacs-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.el15
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.
1055This can be an ange-ftp or Tramp remote filename to download, or 1054This can be an URL, and ange-ftp or Tramp remote filename to
1056a local filename if you have full set of RFCs locally. See also 1055download, or a local filename if you have full set of RFCs
1057`ffap-rfc-directories'." 1056locally. 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.
1064If a given RFC isn't in these then `ffap-rfc-path' is offered." 1062If 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)))