Mercurial > emacs

changeset 84380:2fa07ee359f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add comment.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 07 Sep 2007 19:47:56 +0000
parents 93833f201e31
children 38640f40d45e
files lisp/pcvs.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/pcvs.el	Fri Sep 07 19:47:46 2007 +0000
+++ b/lisp/pcvs.el	Fri Sep 07 19:47:56 2007 +0000
@@ -635,6 +635,9 @@
           (if (not (string-match "." str)) (setq str "\n"))
           (setq str (concat "-- Running " cmd " ...\n" str)))
       (if (not (string-match
+                ;; FIXME:  If `cmd' is large, this will bump into the
+                ;; compiled-regexp size limit.  We could drop the "^" anchor
+                ;; and use search-forward to circumvent the problem.
 		(concat "^-- Running " (regexp-quote cmd) " \\.\\.\\.\n") str))
 	  (error "Internal PCL-CVS error while removing message")
 	(setq str (replace-match "" t t str))