Silence byte-compiler warnings.

lisp/minibuffer.el (completion--twq-all):
lisp/term/ns-win.el (ns-initialize-window-system):
lisp/term/w32-win.el (w32-initialize-window-system): Mark unused argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9554625b6e4fd8da82c393a22d03cd58029a142a..36614741daccd9e48e58d64d12d4747f36a9982d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-04-16  Juanma Barranquero  <lekktu@gmail.com>
+
+       * minibuffer.el (completion--twq-all):
+       * term/ns-win.el (ns-initialize-window-system):
+       * term/w32-win.el (w32-initialize-window-system): Silence byte-compiler.
+
 2013-04-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/nadvice.el (add-function): Default simple vars to their

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d07f270a5191744e36358f565f687393a2ee0542..06ac7a91bea3565adc0d2d8ad528bf96be71ae3e 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -525,7 +525,7 @@ for use at QPOS."
   (eq t (compare-strings s1 nil nil s2 nil nil 'ignore-case)))
 
 (defun completion--twq-all (string ustring completions boundary
-                                   unquote requote)
+                                   _unquote requote)
   (when completions
     (pcase-let*
         ((prefix

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 5617c31beffebce5d9868b4b00ece4452f475c01..0d4d3aaa26b51ed64ec2f2f9d4420ce79868a68e 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -895,7 +895,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 
 ;; Do the actual Nextstep Windows setup here; the above code just
 ;; defines functions and variables that we use now.
-(defun ns-initialize-window-system (&optional display)
+(defun ns-initialize-window-system (&optional _display)
   "Initialize Emacs for Nextstep (Cocoa / GNUstep) windowing."
   (cl-assert (not ns-initialized))
 

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index b0f65812eab91944768052d75b119b72c78f03cc..acadb0fad4328f061b3f1ec28515130062438c67 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -246,7 +246,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
 (declare-function x-parse-geometry "frame.c" (string))
 (defvar x-command-line-resources)
 
-(defun w32-initialize-window-system (&optional display)
+(defun w32-initialize-window-system (&optional _display)
   "Initialize Emacs for W32 GUI frames."
   (cl-assert (not w32-initialized))