From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 7 Sep 2007 19:47:56 +0000 (+0000)
Subject: Add comment.
X-Git-Tag: emacs-pretest-23.0.90~11032
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b5f251b263416b9f7f4eccc373cc54b0f16ef1b;p=emacs.git

Add comment.
---

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 6f205772249..cefa3c485cf 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -635,6 +635,9 @@ If non-nil, NEW means to create a new buffer no matter what."
           (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))