[Emacs-diffs] trunk r113714: lisp/vc/vc.el: Silence byte-compiler warning.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113714
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2013-08-06 11:38:41 +0200
message:
  lisp/vc/vc.el: Silence byte-compiler warning.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc.el                  vc.el-20091113204419-o5vbwnq5f7feedwu-502

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-06 01:26:29 +0000
+++ b/lisp/ChangeLog    2013-08-06 09:38:41 +0000
@@ -1,5 +1,8 @@
 2013-08-06  Juanma Barranquero  <address@hidden>
 
+       * vc/vc.el (vc-default-ignore-completion-table):
+       Silence byte-compiler warning.
+
        * frameset.el (frameset-p): Don't check non-nullness of the `properties'
        slot , which can indeed be nil.
        (frameset-live-filter-alist, frameset-persistent-filter-alist):

=== modified file 'lisp/vc/vc.el'
--- a/lisp/vc/vc.el     2013-08-04 02:55:45 +0000
+++ b/lisp/vc/vc.el     2013-08-06 09:38:41 +0000
@@ -486,7 +486,7 @@
 ;;   default implementation always returns nil.
 ;;
 ;; - root (file)
-;; 
+;;
 ;;   Return the root of the VC controlled hierarchy for file.
 ;;
 ;; - repository-hostname (dirname)
@@ -502,13 +502,13 @@
 ;;   Ignore FILE under the current VCS.  When called interactively and
 ;;   with a prefix argument, remove an ignored file.  When called from
 ;;   Lisp code, if REMOVE is non-nil, remove FILE from ignored files."
-;; 
+;;
 ;; - ignore-completion-table
-;; 
+;;
 ;;   Return the completion table for files ignored by the current
 ;;   version control system, e.g., the entries in `.gitignore' and
 ;;   `.bzrignore'.
-;; 
+;;
 ;; - previous-revision (file rev)
 ;;
 ;;   Return the revision number that precedes REV for FILE, or nil if no such
@@ -1365,7 +1365,7 @@
       (setq backend (vc-backend directory))
       (vc-call-backend backend 'ignore file default-directory remove))))
 
-(defun vc-default-ignore-completion-table (file)
+(defun vc-default-ignore-completion-table (_file)
   "Return the list of ignored files."
   ;; Unused lexical argument `file'
   nil)