# HG changeset patch # User Thien-Thi Nguyen # Date 1203420330 0 # Node ID e3aedad81f5f8fff5a679ec6b7b97971e6790dc7 # Parent 97acdba31c63d1e393bb13f4f430f8038b6a0180 Kill eol whitespace; nfc. diff -r 97acdba31c63 -r e3aedad81f5f lisp/vc-rcs.el --- 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"