[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111705: Bind view-echo-area-messages
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111705: Bind view-echo-area-messages in minibuffer-inactive-mode-map. |
Date: |
Sat, 09 Feb 2013 13:52:20 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111705: Bind view-echo-area-messages in minibuffer-inactive-mode-map.,
Chong Yidong <=