[Emacs-diffs] /srv/bzr/emacs/trunk r111705: Bind view-echo-area-messages in minibuffer-inactive-mode-map.

[Chong Yidong]

------------------------------------------------------------
revno: 111705
fixes bug: http://debbugs.gnu.org/13340
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2013-02-09 13:52:20 +0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/help.el
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-09 05:09:02 +0000
+++ b/lisp/ChangeLog    2013-02-09 05:52:20 +0000
@@ -1,5 +1,10 @@
 2013-02-09  Chong Yidong  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/help.el'
--- a/lisp/help.el      2013-01-01 09:11:05 +0000
+++ b/lisp/help.el      2013-02-09 05:52:20 +0000
@@ -412,7 +412,9 @@
 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."

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2013-01-02 16:13:04 +0000
+++ b/lisp/minibuffer.el        2013-02-09 05:52:20 +0000
@@ -2045,10 +2045,7 @@
     (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)