Mercurial > emacs

comparison lisp/isearch.el @ 48775:25ef28e528f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-no-upper-case-p): \\ only quotes one character.
author Richard M. Stallman <rms@gnu.org>
date Mon, 09 Dec 2002 20:23:35 +0000
parents c54ec45f223c
children 50db4854d2eb
comparison
equal deleted inserted replaced
48774:c41c265141e2 48775:25ef28e528f4
1869 (while (and (not found) (< i len)) 1869 (while (and (not found) (< i len))
1870 (let ((char (aref string i))) 1870 (let ((char (aref string i)))
1871 (if (and regexp-flag (eq char ?\\)) 1871 (if (and regexp-flag (eq char ?\\))
1872 (setq quote-flag (not quote-flag)) 1872 (setq quote-flag (not quote-flag))
1873 (if (and (not quote-flag) (not (eq char (downcase char)))) 1873 (if (and (not quote-flag) (not (eq char (downcase char))))
1874 (setq found t)))) 1874 (setq found t))
1875 (setq quote-flag nil)))
1875 (setq i (1+ i))) 1876 (setq i (1+ i)))
1876 (not found))) 1877 (not found)))
1877 1878
1878 ;; Portability functions to support various Emacs versions. 1879 ;; Portability functions to support various Emacs versions.
1879 1880