From: Masatake YAMATO <jet@gyve.org>
Date: Sat, 5 Apr 2003 18:01:14 +0000 (+0000)
Subject: (Info-goto-emacs-command-node): If command
X-Git-Tag: ttn-vms-21-2-B4~10628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fafb00dc1104a1e6158de9877303bdc3230fa120;p=emacs.git

(Info-goto-emacs-command-node): If command
is given as a string, convert it to a symbol.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6409f873837..402bc2ebb29 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-06  Masatake YAMATO  <jet@gyve.org>
+
+	* info.el (Info-goto-emacs-command-node): If command 
+	is given as a string, convert it to a symbol.
+
 2003-04-05  Kevin Ryde  <user42@zip.com.au>
 
 	* 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.
   "Go to the Info node in the Emacs manual for command COMMAND.
 The command is found by looking up in Emacs manual's indices
 or in another manual found via COMMAND's `info-file' property or
-the variable `Info-file-list-for-emacs'."
+the variable `Info-file-list-for-emacs'. COMMAND must be a symbol
+or string."
   (interactive "CFind documentation for command: ")
+  ;; If command is given as a string, convert it to a symbol.
+  (if (stringp command)
+      (setq command (intern command)))  
   (or (commandp command)
       (signal 'wrong-type-argument (list 'commandp command)))
   (let ((where (Info-find-emacs-command-nodes command)))