Mercurial > emacs

comparison lisp/emacs-lisp/re-builder.el @ 89953:029a652ac817

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-23 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-442 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-444 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-445 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-446 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-450 Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 11 Jul 2004 22:08:06 +0000
parents 4c90ffeb71c5 a4c0ce40be3d
children 3fd4a5c21153
comparison
equal deleted inserted replaced
89952:6f6e9fe4658b 89953:029a652ac817
668 (error "Too many subexpressions - face `%s' not defined" 668 (error "Too many subexpressions - face `%s' not defined"
669 face-name ))) 669 face-name )))
670 (overlay-put overlay 'priority i))) 670 (overlay-put overlay 'priority i)))
671 (setq i (1+ i)))))) 671 (setq i (1+ i))))))
672 (let ((count (if subexp submatches matches))) 672 (let ((count (if subexp submatches matches)))
673 (message"%s %smatch(es)%s" 673 (message"%s %smatch%s%s"
674 (if (= 0 count) "No" (int-to-string count)) 674 (if (= 0 count) "No" (int-to-string count))
675 (if subexp "subexpression " "") 675 (if subexp "subexpression " "")
676 (if (= 1 count) "" "es")
676 (if (and reb-auto-match-limit 677 (if (and reb-auto-match-limit
677 (= reb-auto-match-limit count)) 678 (= reb-auto-match-limit count))
678 " (limit reached)" ""))) 679 " (limit reached)" "")))
679 (if firstmatch 680 (if firstmatch
680 (progn (store-match-data firstmatch) 681 (progn (store-match-data firstmatch)