From be94d7130041927a372f21bb2afeddafb4f92e5c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 11 Sep 2013 23:53:57 -0700 Subject: [PATCH] * vc/vc-svn.el (vc-svn-dir-status-files, vc-svn-dir-extra-headers) (vc-svn-ignore): Mark unused arguments. --- lisp/ChangeLog | 3 +++ lisp/vc/vc-svn.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c33fccdec9f..8316c43bda0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-09-12 Glenn Morris + * vc/vc-svn.el (vc-svn-dir-status-files, vc-svn-dir-extra-headers) + (vc-svn-ignore): Mark unused arguments. + * subr.el (do-after-load-evaluation): Also give compiler warnings when obsolete files are used (except by obsolete files). diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index bfd608c0467..d2c770de53b 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el @@ -234,12 +234,12 @@ RESULT is a list of conses (FILE . STATE) for directory DIR." (vc-run-delayed (vc-svn-after-dir-status callback remote)))) -(defun vc-svn-dir-status-files (dir files _default-state callback) +(defun vc-svn-dir-status-files (_dir files _default-state callback) (apply 'vc-svn-command (current-buffer) 'async nil "status" files) (vc-run-delayed (vc-svn-after-dir-status callback))) -(defun vc-svn-dir-extra-headers (dir) +(defun vc-svn-dir-extra-headers (_dir) "Generate extra status headers for a Subversion working copy." (let (process-file-side-effects) (vc-svn-command "*vc*" 0 nil "info")) @@ -352,7 +352,7 @@ This is only possible if SVN is responsible for FILE's directory.") (concat "-r" rev)) (vc-switches 'SVN 'checkout)))) -(defun vc-svn-ignore (file &optional directory remove) +(defun vc-svn-ignore (file &optional _directory _remove) "Ignore FILE under Subversion. FILE is a file wildcard, relative to the root directory of DIRECTORY." (vc-svn-command t 0 file "propedit" "svn:ignore")) -- 2.39.2