Mercurial > emacs
changeset 106448:992f0db2b7c1
* ffap.el (ffap-rfc-path): Make this a defcustom since
`ffap-rfc-directories' is also a defcustom. (My Bug#4514.)
author | Kevin Ryde <user42@zip.com.au> |
---|---|
date | Sun, 06 Dec 2009 00:21:56 +0000 |
parents | f5f8760e0f26 |
children | 093d4e217f6a |
files | lisp/ffap.el |
diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ffap.el Sat Dec 05 23:51:26 2009 +0000 +++ b/lisp/ffap.el Sun Dec 06 00:21:56 2009 +0000 @@ -951,6 +951,16 @@ "/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 @@ :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)