diff lisp/info-look.el @ 20973:b7e7f7c9685a

Added support for the Emacs Lisp manual. (info-complete-file): Use default value if MODE is nil. (info-lookup-file-alist): Variable removed.

--- a/lisp/info-look.el	Wed Feb 25 22:44:24 1998 +0000
+++ b/lisp/info-look.el	Wed Feb 25 22:45:29 1998 +0000
@@ -230,13 +230,6 @@
 (defsubst info-lookup->all-modes (topic mode)
   (cons mode (info-lookup->refer-modes topic mode)))
 
-(defvar info-lookup-file-alist
-  '((c-mode
-     "[_a-zA-Z0-9./+-]+" nil
-     (("(libc)File Index"))))
-  "*Alist of help specifications for file names.
-See the documentation of the variable `info-lookup-alist' for more details.")
-
 ;;;###autoload
 (defun info-lookup-reset ()
   "Throw away all cached data.
@@ -533,12 +526,13 @@
 ;;;###autoload
 (defun info-complete-file (&optional mode)
   "Perform completion on file preceding point."
-  (interactive
-   (list (if (info-lookup->mode-value
-	      'file (or info-lookup-mode major-mode))
-	     (or info-lookup-mode major-mode)
-	   (info-lookup-change-mode 'file))))
-  (info-complete 'file mode))
+  (interactive)
+  (info-complete 'file
+		 (or mode
+		     (if (info-lookup->mode-value
+			  'file (or info-lookup-mode major-mode))
+			 (or info-lookup-mode major-mode)
+		       (info-lookup-change-mode 'file)))))
 
 (defun info-complete (topic mode)
   "Try to complete a help item."
@@ -750,7 +744,15 @@
  :mode 'emacs-lisp-mode
  :regexp "[^()' \t\n]+"
  :doc-spec '(("(emacs)Command Index")
-	     ("(emacs)Variable Index")))
+	     ("(emacs)Variable Index")
+	     ("(elisp)Index"
+	      (lambda (item)
+		(let ((sym (intern-soft item)))
+		  (cond ((null sym)
+			 (if (string-equal item "nil") item))
+			((or (boundp sym) (fboundp sym))
+			 item))))
+	      "^[ \t]+- [^:]+:[ \t]*" "\\b")))
 
 (info-lookup-maybe-add-help
  :mode 'lisp-interaction-mode