mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

Add comment.

Browse Source
This commit is contained in:
Stefan Monnier 2007-09-07 19:47:56 +00:00
parent 0ba6bcb1d6
commit 8b5f251b26
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/pcvs.el
View File

@ -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))