From: Kelly Dean Date: Mon, 17 Dec 2012 07:54:57 +0000 (+0100) Subject: Fix some interactions of make-help-screen and other Help forms (Bug#13190). X-Git-Tag: emacs-24.3.90~173^2~7^2~568 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ae57a675881d8a2a0b58704a66bb5a74d6f0a1f;p=emacs.git 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 0d65baebee2..21564f5daa5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-12-17 Kelly Dean (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 * files.el (file-extended-attributes) diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 63ae02eb90d..78972344152 100644 --- 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))