From 990a9cb177f89c39fda8bb7e32f353bfe4bca59d Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 6 Dec 2009 00:22:51 +0000 Subject: [PATCH] * ffap.el (ffap-rfc-path): Make this a defcustom since `ffap-rfc-directories' is also a defcustom. (My Bug#4514.) --- lisp/ChangeLog | 5 +++++ lisp/ffap.el | 13 ++++++++++--- 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 + + * 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 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) -- 2.39.5