* help-mode.el: Prevent duplicated display of Info buffer. (Bug#13190)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43cffffcb36ac877ece26a0e06d55f8b231bb651..4200a7b7dda2391d253abdec1cee85067ba0872a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-16  Kelly Dean  <kelly@prtime.org>
+
+       * help-mode.el (help-do-xref): Prevent duplicated display of Info
+       buffer, and prevent interference with existing buffer. (Bug#13190)
+
 2015-02-16  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        python.el: Do not deactivate mark on shell fontification.  (Bug#19871)

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 564362a0c438a865c79c716b9386a148c72b7fc6..b8b129dbc4a9bf7a928752fa79843a764ed4c0e9 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -739,7 +739,8 @@ Things are set up properly so that the resulting help-buffer has
 a proper [back] button."
   ;; There is a reference at point.  Follow it.
   (let ((help-xref-following t))
-    (apply function args)))
+    (apply function (if (eq function 'info)
+                       (append args (list (generate-new-buffer-name "*info*"))) args))))
 
 ;; The doc string is meant to explain what buttons do.
 (defun help-follow-mouse ()