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

`ffap-rfc-directories' is also a defcustom.  (My Bug#4514.)

2 files changed, 15 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04203266058..dc86bd235cf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 7d3f279f724..b7761a63198 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -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)