HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0ba6bcb
)
Add comment.
author
Stefan Monnier
<monnier@iro.umontreal.ca>
Fri, 7 Sep 2007 19:47:56 +0000
(19:47 +0000)
committer
Stefan Monnier
<monnier@iro.umontreal.ca>
Fri, 7 Sep 2007 19:47:56 +0000
(19:47 +0000)
lisp/pcvs.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/pcvs.el
b/lisp/pcvs.el
index
6f20577
..
cefa3c4
100644
(file)
--- 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))