Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

In make-help-screen make original minor-mode-map-alist temporarily visible.

Browse source 
* help-macro.el (make-help-screen): Temporarily restore original binding
for minor-mode-map-alist (Bug#10454).
This commit is contained in:
Martin Rudalics 2012-01-20 09:12:35 +01:00
parent 0d0deb382b
commit dd6e3cdd5a
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-01-20 Martin Rudalics <rudalics@gmx.at>
* help-macro.el (make-help-screen): Temporarily restore original
binding for minor-mode-map-alist (Bug#10454).
2012-01-19 Julien Danjou <julien@danjou.info>
* color.el (color-name-to-rgb): Use the white color to find the max

9
lisp/help-macro.el
View file

@ -184,9 +184,12 @@ and then returns."
(when config
(set-window-configuration config)
(setq config nil))
;; `defn' must make sure that its frame is
;; selected, so we won't iconify it below.
(call-interactively defn)
;; Temporarily rebind `minor-mode-map-alist'
;; to `new-minor-mode-map-alist' (Bug#10454).
(let ((minor-mode-map-alist new-minor-mode-map-alist))
;; `defn' must make sure that its frame is
;; selected, so we won't iconify it below.
(call-interactively defn))
(when new-frame
;; Do not iconify the selected frame.
(unless (eq new-frame (selected-frame))