Mercurial > emacs
changeset 18440:a94d8b31ae3d
(isearch-search-and-update): When a reverse search
need not actually search, update isearch-case-fold-search anyway.
(isearch-mode-map): Define latin-iso8859-9 as self-searching.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 Jun 1997 03:45:38 +0000 |
| parents | 825069bf1e74 |
| children | c154adda572d |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Wed Jun 25 03:03:57 1997 +0000 +++ b/lisp/isearch.el Wed Jun 25 03:45:38 1997 +0000 @@ -234,6 +234,7 @@ (aset (nth 1 map) (make-char 'latin-iso8859-2) 'isearch-printing-char) (aset (nth 1 map) (make-char 'latin-iso8859-3) 'isearch-printing-char) (aset (nth 1 map) (make-char 'latin-iso8859-4) 'isearch-printing-char) + (aset (nth 1 map) (make-char 'latin-iso8859-9) 'isearch-printing-char) ;; Make function keys, etc, exit the search. (define-key map [t] 'isearch-other-control-char) ;; Control chars, by default, end isearch mode transparently. @@ -1018,10 +1019,14 @@ (or isearch-yank-flag (<= (match-end 0) (min isearch-opoint isearch-barrier)))) - (setq isearch-success t - isearch-invalid-regexp nil - isearch-within-brackets nil - isearch-other-end (match-end 0)) + (progn + (setq isearch-success t + isearch-invalid-regexp nil + isearch-within-brackets nil + isearch-other-end (match-end 0)) + (if (and (eq isearch-case-fold-search t) search-upper-case) + (setq isearch-case-fold-search + (isearch-no-upper-case-p isearch-string isearch-regexp)))) ;; Not regexp, not reverse, or no match at point. (if (and isearch-other-end (not isearch-adjusted)) (goto-char (if isearch-forward isearch-other-end