emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r111363: * info.el (info-other-window


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r111363: * info.el (info-other-window): New arg, for consistency with info.
Date: Sat, 29 Dec 2012 14:14:00 +0800
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 111363
author: Damien Cassou <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-12-29 14:14:00 +0800
message:
  * info.el (info-other-window): New arg, for consistency with info.
modified:
  lisp/ChangeLog
  lisp/info.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-28 10:24:04 +0000
+++ b/lisp/ChangeLog    2012-12-29 06:14:00 +0000
@@ -1,3 +1,7 @@
+2012-12-29  Damien Cassou  <address@hidden>
+
+       * info.el (info-other-window): 
+
 2012-12-28  Martin Rudalics  <address@hidden>
 
        * mail/rmail.el (rmail-maybe-display-summary): Rewrite

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-12-27 20:42:02 +0000
+++ b/lisp/info.el      2012-12-29 06:14:00 +0000
@@ -746,11 +746,15 @@
                  (push dir Info-directory-list)))))))
 
 ;;;###autoload
-(defun info-other-window (&optional file-or-node)
+(defun info-other-window (&optional file-or-node buffer)
   "Like `info' but show the Info buffer in another window."
-  (interactive (if current-prefix-arg
-                  (list (read-file-name "Info file name: " nil nil t))))
-  (info-setup file-or-node (switch-to-buffer-other-window "*info*")))
+  (interactive (list
+               (if (and current-prefix-arg (not (numberp current-prefix-arg)))
+                   (read-file-name "Info file name: " nil nil t))
+               (if (numberp current-prefix-arg)
+                   (format "*info*<%s>" current-prefix-arg))))
+  (info-setup file-or-node
+             (switch-to-buffer-other-window (or buffer "*info*"))))
 
 ;;;###autoload (put 'info 'info-file (purecopy "emacs"))
 ;;;###autoload
@@ -767,8 +771,9 @@
 
 In interactive use, a non-numeric prefix argument directs
 this command to read a file name from the minibuffer.
-A numeric prefix argument selects an Info buffer with the prefix number
-appended to the Info buffer name.
+
+A numeric prefix argument N selects an Info buffer named
+\"*info*<%s>\".
 
 The search path for Info files is in the variable `Info-directory-list'.
 The top-level Info directory is made by combining all the files named `dir'


reply via email to

[Prev in Thread] Current Thread [Next in Thread]