comparison lisp/replace.el @ 375:a300bb07d72d r21-2b3

Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents cc15677e0335
children aabb7f5b1c81
comparison
equal deleted inserted replaced
374:4ebeb1a5388b 375:a300bb07d72d
626 (limit nil) 626 (limit nil)
627 (match-again t) 627 (match-again t)
628 ;; XEmacs addition 628 ;; XEmacs addition
629 (qr-case-fold-search 629 (qr-case-fold-search
630 (if (and case-fold-search search-caps-disable-folding) 630 (if (and case-fold-search search-caps-disable-folding)
631 (isearch-no-upper-case-p search-string) 631 (no-upper-case-p search-string regexp-flag)
632 case-fold-search)) 632 case-fold-search))
633 (message 633 (message
634 (if query-flag 634 (if query-flag
635 (substitute-command-keys 635 (substitute-command-keys
636 "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) ")))) 636 "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) "))))