From 71e14f3b61758d37c84488d8512287b4e3c3ded5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 4 Jul 2017 22:26:20 -0400 Subject: [PATCH] * lisp/progmodes/cc-vars.el: Mark unused args --- lisp/progmodes/cc-vars.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index ccd4fd29940..2ae90ce4236 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el @@ -87,7 +87,7 @@ use c-constant-symbol instead." :value nil :tag "Symbol" :format "%t: %v\n%d" - :match (lambda (widget value) (symbolp value)) + :match (lambda (_widget value) (symbolp value)) :value-to-internal (lambda (widget value) (let ((s (if (symbolp value) @@ -98,7 +98,7 @@ use c-constant-symbol instead." (setq s (concat s (make-string (- l (length s)) ?\ )))) s)) :value-to-external - (lambda (widget value) + (lambda (_widget value) (if (stringp value) (intern (progn (string-match "\\`[^ ]*" value) @@ -109,14 +109,14 @@ use c-constant-symbol instead." "An integer or the value nil." :value nil :tag "Optional integer" - :match (lambda (widget value) (or (integerp value) (null value)))) + :match (lambda (_widget value) (or (integerp value) (null value)))) (define-widget 'c-symbol-list 'sexp "A single symbol or a list of symbols." :tag "Symbols separated by spaces" :validate 'widget-field-validate :match - (lambda (widget value) + (lambda (_widget value) (or (symbolp value) (catch 'ok (while (listp value) @@ -125,7 +125,7 @@ use c-constant-symbol instead." (setq value (cdr value))) (null value)))) :value-to-internal - (lambda (widget value) + (lambda (_widget value) (cond ((null value) "") ((symbolp value) @@ -138,7 +138,7 @@ use c-constant-symbol instead." (t value))) :value-to-external - (lambda (widget value) + (lambda (_widget value) (if (stringp value) (let (list end) (while (string-match "\\S +" value end) -- 2.39.2