From: Juri Linkov <juri@jurta.org>
Date: Sun, 2 Dec 2012 06:22:32 +0000 (+0800)
Subject: * info.el (info-display-manual): Don't clobber an existing Info buffer.
X-Git-Tag: emacs-24.3.90~173^2~9^2~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3faf4944316a1efc840bd6dffe4315ea30a0f0e8;p=emacs.git

* info.el (info-display-manual): Don't clobber an existing Info buffer.

Fixes: debbugs:10770
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec7791597f0..51756972f4a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-02  Juri Linkov  <juri@jurta.org>
+
+	* info.el (info-display-manual): Don't clobber an existing Info
+	buffer (Bug#10770).
+
 2012-12-01  Yuya Nishihara  <yuya@tcha.org>  (tiny change)
 
 	* vc/vc-hooks.el (vc-find-file-hook): Expand buffer-file-truename
diff --git a/lisp/info.el b/lisp/info.el
index b0ef5c6bc4d..f22b39769b1 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -5097,7 +5097,9 @@ type returned by `Info-bookmark-make-record', which see."
 
 ;;;###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 @@ type returned by `Info-bookmark-make-record', which see."
     (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)