mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

* ffap.el (ffap-rfc-path): Make this a defcustom since

Browse Source 
`ffap-rfc-directories' is also a defcustom.  (My Bug#4514.)
This commit is contained in:
Kevin Ryde 2009-12-06 00:22:51 +00:00
parent 9663903099
commit 990a9cb177
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-12-06 Kevin Ryde <user42@zip.com.au>
* ffap.el (ffap-rfc-path): Make this a defcustom since
`ffap-rfc-directories' is also a defcustom. (My Bug#4514.)
2009-12-05 Juri Linkov <juri@jurta.org>
Save and restore dired buffer's point positions too. (Bug#4880)

13
lisp/ffap.el
View File

@ -951,6 +951,16 @@ If t, `ffap-tex-init' will initialize this when needed.")
"/pub/gnu/emacs/elisp-archive/"))
(substring name 2))))
(defcustom ffap-rfc-path
(concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt")
"A `format' string making a filename for RFC documents.
This can be an ange-ftp or tramp remote filename to download, or
a local filename if you have full set of RFCs locally. See also
`ffap-rfc-directories'."
:type 'string
:version "23.1"
:group 'ffap)
(defcustom ffap-rfc-directories nil
"A list of directories to look for RFC files.
If a given RFC isn't in these then `ffap-rfc-path' is offered."
@ -958,9 +968,6 @@ If a given RFC isn't in these then `ffap-rfc-path' is offered."
:version "23.1"
:group 'ffap)
(defvar ffap-rfc-path
(concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt"))
(defun ffap-rfc (name)
(let ((num (match-string 1 name)))
(or (ffap-locate-file (format "rfc%s.txt" num) t ffap-rfc-directories)