Mercurial > emacs
comparison lisp/info.el @ 50454:583825022e8f
(Info-goto-emacs-command-node): If command
is given as a string, convert it to a symbol.
author | Masatake YAMATO <jet@gyve.org> |
---|---|
date | Sat, 05 Apr 2003 18:01:14 +0000 |
parents | bb8b212f5326 |
children | 4d6ac18fff69 |
comparison
equal
deleted
inserted
replaced
50453:e499daf7fb22 | 50454:583825022e8f |
---|---|
2584 ;;;###autoload | 2584 ;;;###autoload |
2585 (defun Info-goto-emacs-command-node (command) | 2585 (defun Info-goto-emacs-command-node (command) |
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))) |
2594 (if where | 2598 (if where |
2595 (let ((num-matches (length where))) | 2599 (let ((num-matches (length where))) |