procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bind view-echo-area-messages in minibuffer-inactive-mode-map.

Browse source 
* help.el (view-echo-area-messages): Use display-buffer.

* minibuffer.el (minibuffer-inactive-mode-map): Bind mouse-1 to
view-echo-area-messages.

Fixes: debbugs:13340
This commit is contained in:
Chong Yidong 2013-02-09 13:52:20 +08:00
parent 044a9eac4e
commit 123ecb68a0
3 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2013-02-09 Chong Yidong <cyd@gnu.org>
* minibuffer.el (minibuffer-inactive-mode-map): Bind mouse-1 to
view-echo-area-messages (Bug#13340).
* help.el (view-echo-area-messages): Use display-buffer.
* dired-x.el (dired-do-run-mail): Prompt for confirmation
(Bug#13561).

4
lisp/help.el
View file

@ -412,7 +412,9 @@ With argument, display info only for the selected version."
The number of messages retained in that buffer
is specified by the variable `message-log-max'."
(interactive)
(switch-to-buffer (get-buffer-create "*Messages*")))
(with-current-buffer (get-buffer-create "*Messages*")
(goto-char (point-max))
(display-buffer (current-buffer))))
(defun view-order-manuals ()
"Display the Emacs ORDERS file."

5
lisp/minibuffer.el
View file

@ -2045,10 +2045,7 @@ with `minibuffer-local-must-match-map'.")
(define-key map "i" 'info)
(define-key map "m" 'mail)
(define-key map "n" 'make-frame)
(define-key map [mouse-1] (lambda () (interactive)
(with-current-buffer "*Messages*"
(goto-char (point-max))
(display-buffer (current-buffer)))))
(define-key map [mouse-1] 'view-echo-area-messages)
;; So the global down-mouse-1 binding doesn't clutter the execution of the
;; above mouse-1 binding.
(define-key map [down-mouse-1] #'ignore)