Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(isearch-search-and-update): When a reverse search

Browse source 
need not actually search, update isearch-case-fold-search anyway.
(isearch-mode-map): Define latin-iso8859-9 as self-searching.
This commit is contained in:
Richard M. Stallman 1997-06-25 03:45:38 +00:00
parent e9c71056c1
commit d64b1d967b
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/isearch.el
View file

@ -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