[Emacs-diffs] /srv/bzr/emacs/trunk r111062: * info.el (info-display-manual): Don't clobber an existing Info buffer.

[Chong Yidong]

------------------------------------------------------------
revno: 111062
fixes bug: http://debbugs.gnu.org/10770
author: Juri Linkov <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-02 14:22:32 +0800
message:
  * info.el (info-display-manual): Don't clobber an existing Info buffer.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-01 13:25:13 +0000
+++ b/lisp/ChangeLog    2012-12-02 06:22:32 +0000
@@ -1,3 +1,8 @@
+2012-12-02  Juri Linkov  <address@hidden>
+
+       * info.el (info-display-manual): Don't clobber an existing Info
+       buffer (Bug#10770).
+
 2012-12-01  Yuya Nishihara  <address@hidden>  (tiny change)
 
        * vc/vc-hooks.el (vc-find-file-hook): Expand buffer-file-truename

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-11-17 21:52:12 +0000
+++ b/lisp/info.el      2012-12-02 06:22:32 +0000
@@ -5097,7 +5097,9 @@
 
 ;;;###autoload
 (defun info-display-manual (manual)
-  "Go to Info buffer that displays MANUAL, creating it if none already exists."
+  "Display an Info buffer displaying MANUAL.
+If there is an existing Info buffer for MANUAL, display it.
+Otherwise, visit the manual in a new Info buffer."
   (interactive "sManual name: ")
   (let ((blist (buffer-list))
        (manual-re (concat "\\(/\\|\\`\\)" manual "\\(\\.\\|\\'\\)"))
@@ -5113,7 +5115,8 @@
     (if found
        (switch-to-buffer found)
       (info-initialize)
-      (info (Info-find-file manual)))))
+      (info (Info-find-file manual)
+           (generate-new-buffer-name "*info*")))))
 
 (provide 'info)