* comint.el (comint-previous-matching-input): Do not flood the

*Messages* buffer with trivial messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fa162b1d8015cd40f2e2603d0676ba03b1e229b..055a552073d23eb7bb600b69d05a2c7f685ef093 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-25  Leo Liu  <sdl.web@gmail.com>
+
+       * comint.el (comint-previous-matching-input): Do not flood the
+       *Messages* buffer with trivial messages.
+
 2013-05-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/flymake.el (flymake-nop): Don't return a string.

diff --git a/lisp/comint.el b/lisp/comint.el
index 5680b9aaa2a2bee0524ed20ba4147e6520850467..592f63fa68367f3ab79bd603bf72960e15b859c1 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1190,7 +1190,8 @@ If N is negative, find the next or Nth next match."
                (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)))))