diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-29 06:27:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-29 06:27:47 +0000 |
| commit | 43873131f4d7299a532f339d723e135f11c2b76c (patch) | |
| tree | b03b900a0a218a1ba6169ffabbbe7fe6004becce /lisp/isearch.el | |
| parent | a39a1ba8513b1a52bf68515f2371f9023e48b806 (diff) | |
| download | emacs-43873131f4d7299a532f339d723e135f11c2b76c.tar.gz | |
(isearch-search): Take note of isearch-case-fold-search initial value.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 4fd6a1a14dc..16ab73c73c2 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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 @@ If there is no completion possible, say so and continue searching." (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) |