[Emacs-diffs] emacs/lisp ffap.el

[Kevin Ryde]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Kevin Ryde <kryde>      09/12/06 00:21:57

Modified files:
        lisp           : ffap.el 

Log message:
        * ffap.el (ffap-rfc-path): Make this a defcustom since
        `ffap-rfc-directories' is also a defcustom.  (My Bug#4514.)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ffap.el?cvsroot=emacs&r1=1.88&r2=1.89

Patches:
Index: ffap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ffap.el,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -b -r1.88 -r1.89
--- ffap.el     25 Nov 2009 17:11:35 -0000      1.88
+++ ffap.el     6 Dec 2009 00:21:56 -0000       1.89
@@ -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)