* vc/vc-svn.el (vc-svn-dir-status-files, vc-svn-dir-extra-headers)

(vc-svn-ignore): Mark unused arguments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c33fccdec9ff47654b346e81729c90e952552f75..8316c43bda0b6406dc3c217d23b7030fa6404cfa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-09-12  Glenn Morris  <rgm@gnu.org>
 
+       * 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 bfd608c0467218202662a23f6abdbc36dbf722f4..d2c770de53ba9d0f5cdd5924a03267e85c73bbcc 100644 (file)
--- 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"))