Mercurial > emacs
changeset 3250:9691f6951ee4
(isearch-search): Take note of isearch-case-fold-search initial value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 May 1993 06:27:47 +0000 |
| parents | b47c0a6be84b |
| children | 6283e50471eb |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Sat May 29 06:25:30 1993 +0000 +++ b/lisp/isearch.el Sat May 29 06:27:47 1993 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1993/05/19 04:44:42 $|$Revision: 1.36 $ +;; |$Date: 1993/05/27 03:33:12 $|$Revision: 1.37 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -1269,7 +1269,7 @@ (defun isearch-search () ;; Do the search with the current search string. (isearch-message nil t) - (if search-upper-case + (if (and isearch-case-fold-search search-upper-case) (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string))) (condition-case lossage (let ((inhibit-quit nil)