Fix some interactions of make-help-screen and other Help forms (Bug#13190).

* help-macro.el (make-help-screen): Instead of switch-to-buffer
use pop-to-buffer with NORECORD argument t.  As buffer name use
*Metahelp* with a leading space (Bug#13190).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d65baebee2d77b6b9b095b47c50e684c7ae5eed..21564f5daa5272c0e6f47ef3862b1cde30180caa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-17  Kelly Dean  <kellydeanch@yahoo.com> (tiny change)
+
+       * help-macro.el (make-help-screen): Instead of switch-to-buffer
+       use pop-to-buffer with NORECORD argument t.  As buffer name use
+       *Metahelp* with a leading space (Bug#13190).
+
 2012-12-16  Romain Francoise  <romain@orebokech.com>
 
        * files.el (file-extended-attributes)

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 63ae02eb90d1abfff3326e9529d4e83fd0c9f1de..78972344152774038b6da1e2636b6631a97c6410 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -134,7 +134,7 @@ and then returns."
                   (when (or (eq char ??) (eq char help-char)
                             (memq char help-event-list))
                     (setq config (current-window-configuration))
-                    (switch-to-buffer-other-window "*Help*")
+                    (pop-to-buffer " *Metahelp*" nil t)
                     (and (fboundp 'make-frame)
                          (not (eq (window-frame (selected-window))
                                   prev-frame))