procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(vc-svn-ignore): Mark unused arguments.
This commit is contained in:
Glenn Morris 2013-09-11 23:53:57 -07:00
parent 759880bff7
commit be94d71300
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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).

6
lisp/vc/vc-svn.el
View file

@ -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"))