From: Leo Liu Date: Sat, 25 May 2013 02:40:33 +0000 (+0800) Subject: * comint.el (comint-previous-matching-input): Do not flood the X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~186 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24d699fab1d81224c1e0e4b4f9aa998b4428caf3;p=emacs.git * comint.el (comint-previous-matching-input): Do not flood the *Messages* buffer with trivial messages. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0fa162b1d80..055a552073d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-25 Leo Liu + + * comint.el (comint-previous-matching-input): Do not flood the + *Messages* buffer with trivial messages. + 2013-05-25 Stefan Monnier * progmodes/flymake.el (flymake-nop): Don't return a string. diff --git a/lisp/comint.el b/lisp/comint.el index 5680b9aaa2a..592f63fa683 100644 --- 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)))))