# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867210338 0
# Node ID a94d8b31ae3dd6071370d8b74db595ae9c0f4860
# Parent  825069bf1e7439e73c56ba5938de4e20ffb1a96c
(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.

diff -r 825069bf1e74 -r a94d8b31ae3d lisp/isearch.el
--- 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