From 51646b62bd1d2709257d4a026dc7349ddb9f8b28 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 16 Apr 2013 04:41:37 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/minibuffer.el | 2 +- lisp/term/ns-win.el | 2 +- lisp/term/w32-win.el | 2 +- 4 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9554625b6e4..36614741dac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-04-16 Juanma Barranquero + + * 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 * emacs-lisp/nadvice.el (add-function): Default simple vars to their diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index d07f270a519..06ac7a91bea 100644 --- 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 5617c31beff..0d4d3aaa26b 100644 --- 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 b0f65812eab..acadb0fad43 100644 --- 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)) -- 2.11.4.GIT