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/