procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/cc-vars.el: Mark unused args

Browse source
This commit is contained in:
Stefan Monnier 2017-07-04 22:26:20 -04:00
parent d36fcad30b
commit 71e14f3b61
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/cc-vars.el
View file

@ -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)