diff options
Diffstat (limited to 'lisp/vc/vc-sccs.el')
-rw-r--r-- | lisp/vc/vc-sccs.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index 7bce1ea3ba..e00d55218c 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -1,4 +1,4 @@ -;;; vc-sccs.el --- support for SCCS version-control +;;; vc-sccs.el --- support for SCCS version-control -*- lexical-binding:t -*- ;; Copyright (C) 1992-2013 Free Software Foundation, Inc. @@ -101,7 +101,7 @@ For a description of possible values, see `vc-check-master-templates'." ;;; Properties of the backend (defun vc-sccs-revision-granularity () 'file) -(defun vc-sccs-checkout-model (files) 'locking) +(defun vc-sccs-checkout-model (_files) 'locking) ;;; ;;; State-querying functions @@ -321,7 +321,7 @@ are expanded to all version-controlled subfiles." (vc-name file) (concat "-r" discard)) (vc-sccs-do-command nil 0 "get" (vc-name file) nil)))) -(defun vc-sccs-revert (file &optional contents-done) +(defun vc-sccs-revert (file &optional _contents-done) "Revert FILE to the version it was based on. If FILE is a directory, revert all subfiles." (if (file-directory-p file) @@ -353,7 +353,7 @@ revert all subfiles." ;;; History functions ;;; -(defun vc-sccs-print-log (files buffer &optional shortlog start-revision-ignored limit) +(defun vc-sccs-print-log (files buffer &optional _shortlog _start-revision-ignored limit) "Print commit log associated with FILES into specified BUFFER. Remaining arguments are ignored." (setq files (vc-expand-dirs files)) @@ -363,6 +363,8 @@ Remaining arguments are ignored." (autoload 'vc-setup-buffer "vc-dispatcher") (autoload 'vc-delistify "vc-dispatcher") +(defvar w32-quote-process-args) + ;; FIXME use sccsdiff if present? (defun vc-sccs-diff (files &optional oldvers newvers buffer) "Get a difference report using SCCS between two filesets." |