From d64b1d967b78671ea63b577f57eeac26a8ca399b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 25 Jun 1997 03:45:38 +0000 Subject: [PATCH] (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. --- lisp/isearch.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 9f36498af24..05c659f574f 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -234,6 +234,7 @@ Default value, nil, means edit the string instead." (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 @@ If no previous match was done, just beep." (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 -- 2.39.5