Mercurial > hg > xemacs-beta

comparison lisp/prim/isearch-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children 8d2a9b52c682
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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))))