Mercurial > hg > xemacs-beta

comparison lisp/prim/isearch-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents cf808b4c4290
children 9f59509498e1
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1550 ; (funcall function isearch-string)))) 1550 ; (funcall function isearch-string))))
1551 1551
1552 1552
1553 (defun isearch-no-upper-case-p (string) 1553 (defun isearch-no-upper-case-p (string)
1554 "Return t if there are no upper case chars in string. 1554 "Return t if there are no upper case chars in string.
1555 But upper case chars preceeded by \\ do not count since they 1555 But upper case chars preceded by \\ do not count since they
1556 have special meaning in a regexp." 1556 have special meaning in a regexp."
1557 ;; this incorrectly returns t for "\\\\A" 1557 ;; this incorrectly returns t for "\\\\A"
1558 (let ((case-fold-search nil)) 1558 (let ((case-fold-search nil))
1559 (not (string-match "\\(^\\|[^\\]\\)[A-Z]" string)))) 1559 (not (string-match "\\(^\\|[^\\]\\)[A-Z]" string))))