Mercurial > emacs
changeset 10397:8fe0c72ba336
(isearch-edit-string): Disable message logging.
(isearch-toggle-case-fold, isearch-message): Likewise.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 11 Jan 1995 02:24:09 +0000 |
| parents | 47938020b39d |
| children | 4a9bc1042dbc |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Wed Jan 11 02:13:20 1995 +0000 +++ b/lisp/isearch.el Wed Jan 11 02:24:09 1995 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1994/12/17 00:41:34 $|$Revision: 1.81 $ +;; |$Date: 1994/12/26 05:09:07 $|$Revision: 1.82 $ ;; This file is part of GNU Emacs. @@ -704,7 +704,8 @@ (read-event))) ;; Binding minibuffer-history-symbol to nil is a work-around ;; for some incompatibility with gmhist. - (minibuffer-history-symbol)) + (minibuffer-history-symbol) + (message-log-max nil)) ;; If the first character the user types when we prompt them ;; for a string is the yank-word character, then go into ;; word-search mode. Otherwise unread that character and @@ -868,10 +869,11 @@ (interactive) (setq isearch-case-fold-search (if isearch-case-fold-search nil 'yes)) - (message "%s%s [case %ssensitive]" - (isearch-message-prefix nil nil isearch-nonincremental) - isearch-message - (if isearch-case-fold-search "in" "")) + (let ((message-log-max nil)) + (message "%s%s [case %ssensitive]" + (isearch-message-prefix nil nil isearch-nonincremental) + isearch-message + (if isearch-case-fold-search "in" ""))) (setq isearch-adjusted t) (sit-for 1) (isearch-update)) @@ -1275,7 +1277,10 @@ isearch-message (isearch-message-suffix c-q-hack ellipsis) ))) - (if c-q-hack m (message "%s" m)))) + (if c-q-hack + m + (let ((message-log-max nil)) + (message "%s" m))))) (defun isearch-message-prefix (&optional c-q-hack ellipsis nonincremental) ;; If about to search, and previous search regexp was invalid,