Commit 123ecb68 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

* 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
parent 044a9eac
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).
 
......
......@@ -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."
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment