Mercurial > emacs

comparison lisp/pcvs.el @ 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 92ccd83174e6
children 44b45775d250
comparison
equal deleted inserted replaced
84379:93833f201e31 84380:2fa07ee359f5
633 (progn 633 (progn
634 ;; Remove the default empty line, if applicable. 634 ;; Remove the default empty line, if applicable.
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))
641 ;; Re-add the default empty line, if applicable. 644 ;; Re-add the default empty line, if applicable.
642 (if (not (string-match "." str)) (setq str "\n\n")) 645 (if (not (string-match "." str)) (setq str "\n\n"))