Mercurial > emacs

changeset 17676:fcbe987b332a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ffap-alist): Delete `math-mode'. Move all defvars and defuns out of this, to top level. Use a constant list as the initial value. (ffap-soft-value): Rewrite as a macro. And now it is used only at run time, not at load time. (ffap-ftp-default-user): Use just "anonymous" as default value. (ffap-what-domain): Don't set mail-extr-all-top-level-domains here. (ffap-newsgroup-regexp, ffap-newsgroup-heads): Move up past first use. (ffap-string-at-point-region): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 May 1997 23:40:22 +0000
parents ba2bcca6f8c4
children 3ab08563e855
files lisp/ffap.el
diffstat 1 files changed, 151 insertions(+), 146 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ffap.el	Mon May 05 23:15:13 1997 +0000
+++ b/lisp/ffap.el	Mon May 05 23:40:22 1997 +0000
@@ -107,12 +107,14 @@
 
 
 ;; This function is used inside defvars:
-(defun ffap-soft-value (name &optional default)
+(defmacro ffap-soft-value (name &optional default)
   "Return value of symbol with NAME, if it is interned.
 Otherwise return nil (or the optional DEFAULT value)."
   ;; Bug: (ffap-soft-value "nil" 5) --> 5
   (let ((sym (intern-soft name)))
-    (if (and sym (boundp sym)) (symbol-value sym) default)))
+    (if (and sym (boundp sym))
+	sym
+      `(quote ,default))))
 
 
 (defcustom ffap-ftp-regexp
@@ -142,10 +144,7 @@
   :group 'ffap)
 
 (defcustom ffap-ftp-default-user
-  (if (or (equal (ffap-soft-value "ange-ftp-default-user") "anonymous")
-	  (equal (ffap-soft-value "efs-default-user") "anonymous"))
-      nil
-    "anonymous")
+  "anonymous"
   "*User name in ftp paths generated by `ffap-host-to-path'.
 nil to rely on `efs-default-user' or `ange-ftp-default-user'."
   :type '(choice (const :tag "Default" nil)
@@ -252,7 +251,12 @@
   :type 'regexp
   :group 'ffap)
 
-(defvar ffap-next-guess nil "Last value returned by `ffap-next-guess'.")
+(defvar ffap-next-guess nil
+  "Last value returned by `ffap-next-guess'.")
+
+(defvar ffap-string-at-point-region '(1 1)
+  "List (BEG END), last region returned by `ffap-string-at-point'.")
+
 (defun ffap-next-guess (&optional back lim)
   "Move point to next file or URL, and return it as a string.
 If nothing is found, leave point at limit and return nil.
@@ -360,8 +364,6 @@
 (defun ffap-what-domain (domain)
   ;; Like what-domain in mail-extr.el, returns string or nil.
   (require 'mail-extr)
-  (defvar mail-extr-all-top-level-domains
-    (ffap-soft-value "all-top-level-domains" obarray)) ; XEmacs, old Emacs
   (get (intern-soft (downcase domain) mail-extr-all-top-level-domains)
        'domain-name))
 
@@ -477,6 +479,12 @@
    (ffap-ftp-regexp (ffap-host-to-path mach))
    ))
 
+(defvar ffap-newsgroup-regexp "^[a-z]+\\.[-+a-z_0-9.]+$"
+  "Strings not matching this fail `ffap-newsgroup-p'.")
+(defvar ffap-newsgroup-heads		; entirely inadequate
+  '("alt" "comp" "gnu" "misc" "news" "sci" "soc" "talk")
+  "Used by `ffap-newsgroup-p' if gnus is not running.")
+
 (defun ffap-newsgroup-p (string)
   "Return STRING if it looks like a newsgroup name, else nil."
   (and
@@ -502,11 +510,6 @@
 		(setq ret string))))
      ;; Is there ever a need to modify string as a newsgroup name?
      ret)))
-(defvar ffap-newsgroup-regexp "^[a-z]+\\.[-+a-z_0-9.]+$"
-  "Strings not matching this fail `ffap-newsgroup-p'.")
-(defvar ffap-newsgroup-heads		; entirely inadequate
-  '("alt" "comp" "gnu" "misc" "news" "sci" "soc" "talk")
-  "Used by `ffap-newsgroup-p' if gnus is not running.")
 
 (defsubst ffap-url-p (string)
   "If STRING looks like an url, return it (maybe improved), else nil."
@@ -603,135 +606,27 @@
 
 (defvar ffap-alist
   ;; A big mess!  Parts are probably useless.
-  (list
-   (cons "\\.info\\'"
-	 (defun ffap-info (name)
-	   (locate-library
-	    name '("" ".info")
-	    (or (ffap-soft-value "Info-directory-list")
-		(ffap-soft-value "Info-default-directory-list")
-		;; v18:
-		(list (ffap-soft-value "Info-directory" "~/info/"))))))
-   ;; Since so many info files do not have .info extension, also do this:
-   (cons "\\`info/"
-	 (defun ffap-info-2 (name) (ffap-info (substring name 5))))
-   (cons "\\`[-a-z]+\\'"
-	 ;; This ignores the node! "(emacs)Top" same as "(emacs)Intro"
-	 (defun ffap-info-3 (name)
-	   (and (equal (ffap-string-around) "()") (ffap-info name))))
-   (cons "\\.elc?\\'"
-	 (defun ffap-el (name) (locate-library name t)))
-   (cons 'emacs-lisp-mode
-	 (defun ffap-el-mode (name)
-	   ;; We do not bother with "" here, since it was considered above.
-	   ;; Also ignore "elc", for speed (who else reads elc files?)
-	   (and (not (string-match "\\.el\\'" name))
-		(locate-library name '(".el")))))
-   '(finder-mode . ffap-el-mode)	; v19: {C-h p}
-   '(help-mode . ffap-el-mode)		; v19.29
-   (cons 'c-mode
-	 (progn
-	   ;; Need better defaults here!
-	   (defvar ffap-c-path '("/usr/include" "/usr/local/include"))
-	   (defun ffap-c-mode (name)
-	     (locate-library name t ffap-c-path))))
-   '(c++-mode . ffap-c-mode)
-   '(cc-mode . ffap-c-mode)
-   '("\\.\\([chCH]\\|cc\\|hh\\)\\'" . ffap-c-mode)
-   (cons 'tex-mode
-	 ;; Complicated because auctex may not be loaded yet.
-	 (progn
-	   (defvar ffap-tex-path
-	     t				; delayed initialization
-	     "Path where `ffap-tex-mode' looks for tex files.
-If t, `ffap-tex-init' will initialize this when needed.")
-	   (defun ffap-tex-init nil
-	     ;; Compute ffap-tex-path if it is now t.
-	     (and (eq t ffap-tex-path)
-		  (message "Initializing ffap-tex-path ...")
-		  (setq ffap-tex-path
-			(ffap-reduce-path
-			 (append
-			  (list ".")
-			  (ffap-list-env "TEXINPUTS")
-			  ;; (ffap-list-env "BIBINPUTS")
-			  (ffap-add-subdirs
-			   (ffap-list-env "TEXINPUTS_SUBDIR"
-					  (ffap-soft-value
-					   "TeX-macro-global"
-					   '("/usr/local/lib/tex/macros"
-					     "/usr/local/lib/tex/inputs")
-					   ))))))))
-	   (defun ffap-tex-mode (name)
-	     (ffap-tex-init)
-	     (locate-library name '(".tex" "") ffap-tex-path))))
-   (cons 'latex-mode
-	   (defun ffap-latex-mode (name)
-	     (ffap-tex-init)
-	     ;; Any real need for "" here?
-	     (locate-library name '(".cls" ".sty" ".tex" "")
-			     ffap-tex-path)))
-   (cons "\\.\\(tex\\|sty\\|doc\\|cls\\)\\'"
-	 (defun ffap-tex (name)
-	   (ffap-tex-init)
-	   (locate-library name t ffap-tex-path)))
-   (cons "\\.bib\\'"
-	 (defun ffap-bib (name)
-	   (locate-library
-	    name t
-	    (ffap-list-env "BIBINPUTS" '("/usr/local/lib/tex/macros/bib")))))
-   (cons 'math-mode
-	 (defun ffap-math-mode (name)
-	   (while (string-match "`" name)
-	     (setq name (concat (substring name 0 (match-beginning 0))
-				"/"
-				(substring name (match-end 0)))))
-	   (locate-library
-	    name '(".m" "") (ffap-soft-value "Mathematica-search-path"))))
-   (cons "\\`\\." (defun ffap-home (name) (locate-library name t '("~"))))
-   (cons "\\`~/"
-	 ;; Maybe a "Lisp Code Directory" reference:
-	 (defun ffap-lcd (name)
-	   (and
-	    (or
-	     ;; lisp-dir-apropos output buffer:
-	     (string-match "Lisp Code Dir" (buffer-name))
-	     ;; Inside an LCD entry like |~/misc/ffap.el.Z|,
-	     ;; or maybe the holy LCD-Datafile itself:
-	     (member (ffap-string-around) '("||" "|\n")))
-	    (concat
-	     ;; lispdir.el may not be loaded yet:
-	     (ffap-host-to-path
-	      (ffap-soft-value "elisp-archive-host"
-			       "archive.cis.ohio-state.edu"))
-	     (file-name-as-directory
-	      (ffap-soft-value "elisp-archive-directory"
-			       "/pub/gnu/emacs/elisp-archive/"))
-	     (substring name 2)))))
-   (cons "^[Rr][Ff][Cc][- #]?\\([0-9]+\\)" ; no $
-	 (progn
-	   (defvar ffap-rfc-path
-	     (concat (ffap-host-to-path "ds.internic.net") "/rfc/rfc%s.txt"))
-	   (defun ffap-rfc (name)
-	     (format ffap-rfc-path
-		     (substring name (match-beginning 1) (match-end 1))))))
-   (cons "\\`[^/]*\\'"
-	 (defun ffap-dired (name)
-	   (let ((pt (point)) dir try)
-	     (save-excursion
-	       (and (progn
-		      (beginning-of-line)
-		      (looking-at " *[-d]r[-w][-x][-r][-w][-x][-r][-w][-x] "))
-		    (re-search-backward "^ *$" nil t)
-		    (re-search-forward "^ *\\([^ \t\n:]*\\):\n *total " pt t)
-		    (file-exists-p
-		     (setq try
-			   (expand-file-name
-			    name
-			    (buffer-substring
-			     (match-beginning 1) (match-end 1)))))
-		    try)))))
-   )
+  '(
+    ("\\.info\\'" . ffap-info)
+    ;; Since so many info files do not have .info extension, also do this:
+    ("\\`info/" . ffap-info-2)
+    ("\\`[-a-z]+\\'" . ffap-info-3)
+    ("\\.elc?\\'" . ffap-el)
+    (emacs-lisp-mode . ffap-el-mode)
+    (finder-mode . ffap-el-mode)	; v19: {C-h p}
+    (help-mode . ffap-el-mode)		; v19.29
+    (c++-mode . ffap-c-mode)
+    (cc-mode . ffap-c-mode)
+    ("\\.\\([chCH]\\|cc\\|hh\\)\\'" . ffap-c-mode)
+    (tex-mode . ffap-tex-mode)
+    (latex-mode . ffap-latex-mode)
+    ("\\.\\(tex\\|sty\\|doc\\|cls\\)\\'" . ffap-tex)
+    ("\\.bib\\'" . ffap-bib)
+    ("\\`\\." . ffap-home)
+    ("\\`~/" . ffap-lcd)
+    ("^[Rr][Ff][Cc][- #]?\\([0-9]+\\)"	; no $
+     . ffap-rfc)
+    ("\\`[^/]*\\'" . ffap-dired))
   "Alist of \(KEY . FUNCTION\) pairs parsed by `ffap-file-at-point'.
 If string NAME at point (maybe \"\") is not a file or url, these pairs
 specify actions to try creating such a string.  A pair matches if either
@@ -741,7 +636,120 @@
 url, or nil. If nil, search the alist for further matches.")
 
 (put 'ffap-alist 'risky-local-variable t)
+
+(defun ffap-home (name) (locate-library name t '("~")))
 
+(defun ffap-info (name)
+  (locate-library
+   name '("" ".info")
+   (or (ffap-soft-value "Info-directory-list")
+       (ffap-soft-value "Info-default-directory-list")
+       ;; v18:
+       (list (ffap-soft-value "Info-directory" "~/info/")))))
+
+(defun ffap-info-2 (name) (ffap-info (substring name 5)))
+
+;; This ignores the node! "(emacs)Top" same as "(emacs)Intro"
+(defun ffap-info-3 (name)
+  (and (equal (ffap-string-around) "()") (ffap-info name)))
+
+(defun ffap-el (name) (locate-library name t))
+
+;; Need better defaults here!
+(defvar ffap-c-path '("/usr/include" "/usr/local/include"))
+(defun ffap-c-mode (name)
+  (locate-library name t ffap-c-path))
+
+(defun ffap-el-mode (name)
+  ;; We do not bother with "" here, since it was considered above.
+  ;; Also ignore "elc", for speed (who else reads elc files?)
+  (and (not (string-match "\\.el\\'" name))
+       (locate-library name '(".el"))))
+
+;; Complicated because auctex may not be loaded yet.
+(defvar ffap-tex-path
+  t				; delayed initialization
+  "Path where `ffap-tex-mode' looks for tex files.
+If t, `ffap-tex-init' will initialize this when needed.")
+
+(defun ffap-tex-init nil
+  ;; Compute ffap-tex-path if it is now t.
+  (and (eq t ffap-tex-path)
+       (message "Initializing ffap-tex-path ...")
+       (setq ffap-tex-path
+	     (ffap-reduce-path
+	      (append
+	       (list ".")
+	       (ffap-list-env "TEXINPUTS")
+	       ;; (ffap-list-env "BIBINPUTS")
+	       (ffap-add-subdirs
+		(ffap-list-env "TEXINPUTS_SUBDIR"
+			       (ffap-soft-value
+				"TeX-macro-global"
+				'("/usr/local/lib/tex/macros"
+				  "/usr/local/lib/tex/inputs")
+				))))))))
+
+(defun ffap-tex-mode (name)
+  (ffap-tex-init)
+  (locate-library name '(".tex" "") ffap-tex-path))
+
+(defun ffap-latex-mode (name)
+  (ffap-tex-init)
+  ;; Any real need for "" here?
+  (locate-library name '(".cls" ".sty" ".tex" "")
+		  ffap-tex-path))
+
+(defun ffap-tex (name)
+  (ffap-tex-init)
+  (locate-library name t ffap-tex-path))
+
+(defun ffap-bib (name)
+  (locate-library
+   name t
+   (ffap-list-env "BIBINPUTS" '("/usr/local/lib/tex/macros/bib"))))
+
+(defun ffap-dired (name)
+  (let ((pt (point)) dir try)
+    (save-excursion
+      (and (progn
+	     (beginning-of-line)
+	     (looking-at " *[-d]r[-w][-x][-r][-w][-x][-r][-w][-x] "))
+	   (re-search-backward "^ *$" nil t)
+	   (re-search-forward "^ *\\([^ \t\n:]*\\):\n *total " pt t)
+	   (file-exists-p
+	    (setq try
+		  (expand-file-name
+		   name
+		   (buffer-substring
+		    (match-beginning 1) (match-end 1)))))
+	   try))))
+
+;; Maybe a "Lisp Code Directory" reference:
+(defun ffap-lcd (name)
+  (and
+   (or
+    ;; lisp-dir-apropos output buffer:
+    (string-match "Lisp Code Dir" (buffer-name))
+    ;; Inside an LCD entry like |~/misc/ffap.el.Z|,
+    ;; or maybe the holy LCD-Datafile itself:
+    (member (ffap-string-around) '("||" "|\n")))
+   (concat
+    ;; lispdir.el may not be loaded yet:
+    (ffap-host-to-path
+     (ffap-soft-value "elisp-archive-host"
+		      "archive.cis.ohio-state.edu"))
+    (file-name-as-directory
+     (ffap-soft-value "elisp-archive-directory"
+		      "/pub/gnu/emacs/elisp-archive/"))
+    (substring name 2))))
+
+(defvar ffap-rfc-path
+  (concat (ffap-host-to-path "ds.internic.net") "/rfc/rfc%s.txt"))
+
+(defun ffap-rfc (name)
+  (format ffap-rfc-path
+	  (substring name (match-beginning 1) (match-end 1))))
 
 ;;; At-Point Functions:
 
@@ -769,9 +777,6 @@
 2. strip BEG chars before point from the beginning,
 3. Strip END chars after point from the end.")
 
-(defvar ffap-string-at-point-region '(1 1)
-  "List (BEG END), last region returned by `ffap-string-at-point'.")
-
 (defvar ffap-string-at-point nil
   ;; Added at suggestion of RHOGEE (for ff-paths), 7/24/95.
   "Last string returned by `ffap-string-at-point'.")