diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-04 22:26:20 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-04 22:26:20 -0400 |
| commit | 71e14f3b61758d37c84488d8512287b4e3c3ded5 (patch) | |
| tree | ec6faa95944822ea56d5faa51ad24de4251e7c04 | |
| parent | d36fcad30bd951391c8016b47f33738199946f38 (diff) | |
| download | emacs-71e14f3b61758d37c84488d8512287b4e3c3ded5.tar.gz | |
* lisp/progmodes/cc-vars.el: Mark unused args
| -rw-r--r-- | lisp/progmodes/cc-vars.el | 12 |
1 files 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) |