diff options
| author | Masatake YAMATO | 2003-04-05 18:01:14 +0000 |
|---|---|---|
| committer | Masatake YAMATO | 2003-04-05 18:01:14 +0000 |
| commit | fafb00dc1104a1e6158de9877303bdc3230fa120 (patch) | |
| tree | 6d97712ed3aa3c065c9110fe5407b0e6b339b28a | |
| parent | 666721a688ba7d8d9640682053e3b528b6660a97 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/info.el | 6 |
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 @@ | |||
| 1 | 2003-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 | |||
| 1 | 2003-04-05 Kevin Ryde <user42@zip.com.au> | 6 | 2003-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. |
| 2587 | The command is found by looking up in Emacs manual's indices | 2587 | The command is found by looking up in Emacs manual's indices |
| 2588 | or in another manual found via COMMAND's `info-file' property or | 2588 | or in another manual found via COMMAND's `info-file' property or |
| 2589 | the variable `Info-file-list-for-emacs'." | 2589 | the variable `Info-file-list-for-emacs'. COMMAND must be a symbol |
| 2590 | or 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))) |