From 24d699fab1d81224c1e0e4b4f9aa998b4428caf3 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Sat, 25 May 2013 10:40:33 +0800 Subject: [PATCH] * comint.el (comint-previous-matching-input): Do not flood the *Messages* buffer with trivial messages. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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))))) -- 2.39.2