diff options
| author | Eric S. Raymond <[email protected]> | 2008-05-10 13:27:16 +0000 |
|---|---|---|
| committer | Eric S. Raymond <[email protected]> | 2008-05-10 13:27:16 +0000 |
| commit | 2888a97eb5437535f484f725d3d9606f1cbdbd8f (patch) | |
| tree | efe43d9517aabfc09b5c70a8896175333eb13ab7 /lisp/vc-sccs.el | |
| parent | b3fccc2715c53adc5f80eb003abcd27f215f4564 (diff) | |
Remove assumption about what nil means as a first arument to vc-do-command.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index d4bc33fe9d..f8a98f5270 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -180,7 +180,7 @@ For a description of possible values, see `vc-check-master-templates'." (defun vc-sccs-workfile-unchanged-p (file) "SCCS-specific implementation of `vc-workfile-unchanged-p'." - (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) + (zerop (apply 'vc-do-command "*vc*" 1 "vcdiff" (vc-name file) (list "--brief" "-q" (concat "-r" (vc-working-revision file)))))) @@ -192,7 +192,7 @@ For a description of possible values, see `vc-check-master-templates'." (defun vc-sccs-do-command (buffer okstatus command file-or-list &rest flags) ;; (let ((load-path (append vc-sccs-path load-path))) ;; (apply 'vc-do-command buffer okstatus command file-or-list flags)) - (apply 'vc-do-command buffer okstatus "sccs" file-or-list command flags)) + (apply 'vc-do-command (or buffer "*vc*") okstatus "sccs" file-or-list command flags)) (defun vc-sccs-create-repo () "Create a new SCCS repository." |