Mercurial > emacs
diff lisp/vc-rcs.el @ 91955:e3aedad81f5f
Kill eol whitespace; nfc.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Tue, 19 Feb 2008 11:25:30 +0000 |
parents | 107ccd98fa12 |
children | 7bc22dad5f9a |
line wrap: on
line diff
--- a/lisp/vc-rcs.el Tue Feb 19 11:18:56 2008 +0000 +++ b/lisp/vc-rcs.el Tue Feb 19 11:25:30 2008 +0000 @@ -461,7 +461,7 @@ (previous (if (vc-trunk-p discard) "" (vc-branch-part discard))) (config (current-window-configuration)) (done nil)) - (if (null (yes-or-no-p (format "Remove version %s from %s history? " + (if (null (yes-or-no-p (format "Remove version %s from %s history? " discard file))) (error "Aborted")) (message "Removing revision %s from %s." discard file) @@ -513,7 +513,7 @@ (defun vc-rcs-modify-change-comment (files rev comment) "Modify the change comments change on FILES on a specified REV." (dolist (file files) - (vc-do-command nil 0 "rcs" (vc-name file) + (vc-do-command nil 0 "rcs" (vc-name file) (concat "-m" comment ":" rev)))) @@ -527,7 +527,7 @@ (defun vc-rcs-diff (files &optional oldvers newvers buffer) "Get a difference report using RCS between two sets of files." - (apply 'vc-do-command (or buffer "*vc-diff*") + (apply 'vc-do-command (or buffer "*vc-diff*") 1 ;; Always go synchronous, the repo is local "rcsdiff" (vc-expand-dirs files) (append (list "-q"