procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-find-emacs-command-nodes): Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-19 16:54:27 +00:00
parent 67cbfd2ab8
commit f57b2cd858
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/info.el
View file

@ -1621,7 +1621,9 @@ If the element is just a file name, the file name also serves as the prefix.")
(defun Info-find-emacs-command-nodes (command)
"Return a list of locations documenting COMMAND.
The variable `Info-file-alist' tells what Info manual to search.
The `info-file' property of COMMAND says which Info manual to search.
If COMMAND has no property, the variable `Info-file-list-for-emacs'
defines heuristics for which Info manual to try.
The locations are of the format used in Info-history, i.e.
\(FILENAME NODENAME BUFFERPOS\)."
(let ((where '())
@ -1640,7 +1642,7 @@ The locations are of the format used in Info-history, i.e.
(car elt)
elt))
(file (if (consp elt) (cdr elt) elt))
(regexp (concat "^" (regexp-quote name)
(regexp (concat "\\`" (regexp-quote name)
"\\(\\'\\|-\\)")))
(if (string-match regexp (symbol-name command))
(setq info-file file file-list nil))
@ -1668,7 +1670,8 @@ The locations are of the format used in Info-history, i.e.
(defun Info-goto-emacs-command-node (command)
"Go to the Info node in the Emacs manual for command COMMAND.
The command is found by looking up in Emacs manual's Command Index
or in another manual found via `Info-file-list-for-emacs'."
or in another manual found via COMMAND's `info-file' property or
the variable `Info-file-list-for-emacs'."
(interactive "CFind documentation for command: ")
(or (commandp command)
(signal 'wrong-type-argument (list 'commandp command)))
@ -1699,7 +1702,8 @@ or in another manual found via `Info-file-list-for-emacs'."
"Go to the Info node in the Emacs manual the command bound to KEY, a string.
Interactively, if the binding is execute-extended-command, a command is read.
The command is found by looking up in Emacs manual's Command Index
or in another manual found via `Info-file-list-for-emacs'."
or in another manual found via COMMAND's `info-file' property or
the variable `Info-file-list-for-emacs'."
(interactive "kFind documentation for key:")
(let ((command (key-binding key)))
(cond ((null command)