[Emacs-diffs] /srv/bzr/emacs/trunk r111254: Fix some interactions of make-help-screen and other Help forms (Bug#13190).

[martin rudalics]

------------------------------------------------------------
revno: 111254
author: Kelly Dean  <address@hidden>
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Mon 2012-12-17 08:54:57 +0100
message:
  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).
modified:
  lisp/ChangeLog
  lisp/help-macro.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-16 18:22:27 +0000
+++ b/lisp/ChangeLog    2012-12-17 07:54:57 +0000
@@ -1,3 +1,9 @@
+2012-12-17  Kelly Dean  <address@hidden> (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  <address@hidden>
 
        * files.el (file-extended-attributes)

=== modified file 'lisp/help-macro.el'
--- a/lisp/help-macro.el        2012-10-03 16:15:04 +0000
+++ b/lisp/help-macro.el        2012-12-17 07:54:57 +0000
@@ -134,7 +134,7 @@
                   (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))