1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00

Added support for the Emacs Lisp manual.

(info-complete-file): Use default value if MODE is nil.
(info-lookup-file-alist): Variable removed.
This commit is contained in:
Karl Heuer 1998-02-25 22:45:29 +00:00
parent d5323ba0c2
commit a1fee1bc2a

View File

@ -230,13 +230,6 @@ REFER-MODES is a list of other help modes to use.")
(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 @@ Return nil if there is nothing appropriate."
;;;###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 @@ Special commands:
: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