diff options
| author | Stefan Monnier | 2007-09-07 19:47:56 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-09-07 19:47:56 +0000 |
| commit | 8b5f251b263416b9f7f4eccc373cc54b0f16ef1b (patch) | |
| tree | a5a03e6fc56bf9ca29617dac117ae992ec397eae | |
| parent | 0ba6bcb1d6efc81711f1c6c5ece5614f68b2b6b3 (diff) | |
| download | emacs-8b5f251b263416b9f7f4eccc373cc54b0f16ef1b.tar.gz emacs-8b5f251b263416b9f7f4eccc373cc54b0f16ef1b.zip | |
Add comment.
| -rw-r--r-- | lisp/pcvs.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 635 | (if (not (string-match "." str)) (setq str "\n")) | 635 | (if (not (string-match "." str)) (setq str "\n")) |
| 636 | (setq str (concat "-- Running " cmd " ...\n" str))) | 636 | (setq str (concat "-- Running " cmd " ...\n" str))) |
| 637 | (if (not (string-match | 637 | (if (not (string-match |
| 638 | ;; FIXME: If `cmd' is large, this will bump into the | ||
| 639 | ;; compiled-regexp size limit. We could drop the "^" anchor | ||
| 640 | ;; and use search-forward to circumvent the problem. | ||
| 638 | (concat "^-- Running " (regexp-quote cmd) " \\.\\.\\.\n") str)) | 641 | (concat "^-- Running " (regexp-quote cmd) " \\.\\.\\.\n") str)) |
| 639 | (error "Internal PCL-CVS error while removing message") | 642 | (error "Internal PCL-CVS error while removing message") |
| 640 | (setq str (replace-match "" t t str)) | 643 | (setq str (replace-match "" t t str)) |