[Emacs-diffs] /srv/bzr/emacs/trunk r112727: * comint.el (comint-previous-matching-input): Do not flood the

[Leo Liu]

------------------------------------------------------------
revno: 112727
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Sat 2013-05-25 10:40:33 +0800
message:
  * comint.el (comint-previous-matching-input): Do not flood the
  *Messages* buffer with trivial messages.
modified:
  lisp/ChangeLog
  lisp/comint.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-25 02:21:49 +0000
+++ b/lisp/ChangeLog    2013-05-25 02:40:33 +0000
@@ -1,3 +1,8 @@
+2013-05-25  Leo Liu  <address@hidden>
+
+       * comint.el (comint-previous-matching-input): Do not flood the
+       *Messages* buffer with trivial messages.
+
 2013-05-25  Stefan Monnier  <address@hidden>
 
        * progmodes/flymake.el (flymake-nop): Don't return a string.

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2013-05-18 19:38:35 +0000
+++ b/lisp/comint.el    2013-05-25 02:40:33 +0000
@@ -1190,7 +1190,8 @@
                (funcall comint-get-old-input)))
       (setq comint-input-ring-index pos)
       (unless isearch-mode
-       (message "History item: %d" (1+ pos)))
+       (let ((message-log-max nil))    ; Do not write to *Messages*.
+         (message "History item: %d" (1+ pos))))
       (comint-delete-input)
       (insert (ring-ref comint-input-ring pos)))))