diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-11 02:24:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-11 02:24:09 +0000 |
| commit | a56687f1c0d33da916e0a7290caff24a5707de2b (patch) | |
| tree | eac713ff6fd3382aacdc4f3c250b15b77e3e0088 /lisp | |
| parent | c98adc1b2ee0d0e144efd1049a49f57c053d499b (diff) | |
| download | emacs-a56687f1c0d33da916e0a7290caff24a5707de2b.tar.gz | |
(isearch-edit-string): Disable message logging.
(isearch-toggle-case-fold, isearch-message): Likewise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/isearch.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 03e0ea2fc83..677fdef363a 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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 @@ If first char entered is \\[isearch-yank-word], then do word search instead." (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 @@ Use `isearch-exit' to quit without signalling." (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 @@ If there is no completion possible, say so and continue searching." 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, |