On Tue, Apr 15 2003, Stephen J. Turnbull wrote:
>>>>> "Reiner" == Reiner Steib
<4.uce.03.r.s(a)nurfuerspam.de> writes:
     Reiner> It's clearly preferable to write (info "(texinfo)itemx")
     Reiner> instead of (Info-goto-node "(texinfo)itemx").
 OK, so I'll say, "patches welcome."
 XEmacs is user-supported software, yadda, yadda, yadda, .... 
I'm an Emacs user.  ;-)
If it's not against some policy, you may use the code from Emacs.
I eval'ed the defun of `info' in XEmacs and it worked.  Okay, have a
patch then (code from Emacs 21.3)...
--8<---------------cut here---------------start------------->8---
--- /home/dept/ste/tmp/info.el.orig	Tue Apr 15 20:58:36 2003
+++ /home/dept/ste/tmp/info.el	Tue Apr 15 20:58:36 2003
@@ -571,6 +571,9 @@
 Optional argument FILE specifies the file to examine;
 the default is the top-level directory of Info.
 
+Called from a program, FILE may specify an Info node of the form
+`(FILENAME)NODENAME'.
+
 In interactive use, a prefix argument directs this command
 to read a file name from the minibuffer."
   (interactive (if current-prefix-arg
@@ -589,7 +592,15 @@
 ;  (Info-setup-x) ??? What was this going to be?  Can anyone tell karlheg?
   (if file
       (unwind-protect
-	  (Info-goto-node (concat "(" file ")"))
+	  (progn
+	   (pop-to-buffer "*info*")
+	   ;; If argument already contains parentheses, don't add another set
+	   ;; since the argument will then be parsed improperly.  This also
+	   ;; has the added benefit of allowing node names to be included
+	   ;; following the parenthesized filename.
+	   (if (and (stringp file) (string-match "(.*)" file))
+	       (Info-goto-node file)
+	     (Info-goto-node (concat "(" file ")"))))
 	(and Info-standalone (info)))
     (if (get-buffer "*info*")
 	(switch-to-buffer "*info*")
--8<---------------cut here---------------end--------------->8---
Warning: Not tested carefully.
Suggested ChangeLog entry:
--8<---------------cut here---------------start------------->8---
2003-04-15  Reiner Steib  <Reiner.Steib(a)gmx.de>
	* info.el (info): Support `(filename)nodename' as argument.
--8<---------------cut here---------------end--------------->8---
Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   
http://rsteib.home.pages.de/