aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMasatake YAMATO2003-04-05 18:01:14 +0000
committerMasatake YAMATO2003-04-05 18:01:14 +0000
commitfafb00dc1104a1e6158de9877303bdc3230fa120 (patch)
tree6d97712ed3aa3c065c9110fe5407b0e6b339b28a
parent666721a688ba7d8d9640682053e3b528b6660a97 (diff)
downloademacs-fafb00dc1104a1e6158de9877303bdc3230fa120.tar.gz
emacs-fafb00dc1104a1e6158de9877303bdc3230fa120.zip
(Info-goto-emacs-command-node): If command
is given as a string, convert it to a symbol.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/info.el6
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6409f873837..402bc2ebb29 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12003-04-06 Masatake YAMATO <jet@gyve.org>
2
3 * info.el (Info-goto-emacs-command-node): If command
4 is given as a string, convert it to a symbol.
5
12003-04-05 Kevin Ryde <user42@zip.com.au> 62003-04-05 Kevin Ryde <user42@zip.com.au>
2 7
3 * info-look.el (emacs-lisp-mode): Add prefix/suffix matching regexps. 8 * info-look.el (emacs-lisp-mode): Add prefix/suffix matching regexps.
diff --git a/lisp/info.el b/lisp/info.el
index 2b639be1528..b93c980361e 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2586,8 +2586,12 @@ The locations are of the format used in `Info-history', i.e.
2586 "Go to the Info node in the Emacs manual for command COMMAND. 2586 "Go to the Info node in the Emacs manual for command COMMAND.
2587The command is found by looking up in Emacs manual's indices 2587The command is found by looking up in Emacs manual's indices
2588or in another manual found via COMMAND's `info-file' property or 2588or in another manual found via COMMAND's `info-file' property or
2589the variable `Info-file-list-for-emacs'." 2589the variable `Info-file-list-for-emacs'. COMMAND must be a symbol
2590or string."
2590 (interactive "CFind documentation for command: ") 2591 (interactive "CFind documentation for command: ")
2592 ;; If command is given as a string, convert it to a symbol.
2593 (if (stringp command)
2594 (setq command (intern command)))
2591 (or (commandp command) 2595 (or (commandp command)
2592 (signal 'wrong-type-argument (list 'commandp command))) 2596 (signal 'wrong-type-argument (list 'commandp command)))
2593 (let ((where (Info-find-emacs-command-nodes command))) 2597 (let ((where (Info-find-emacs-command-nodes command)))