diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-04 22:23:57 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-04 22:23:57 -0400 |
| commit | d36fcad30bd951391c8016b47f33738199946f38 (patch) | |
| tree | 110b33ee1214eac7c1a9e4705f2ec21994212899 /lisp | |
| parent | 079d9a38e45f800d006ca36898513a38e5ff59d0 (diff) | |
| download | emacs-d36fcad30bd951391c8016b47f33738199946f38.tar.gz emacs-d36fcad30bd951391c8016b47f33738199946f38.tar.bz2 emacs-d36fcad30bd951391c8016b47f33738199946f38.zip | |
* lisp/progmodes/cc-langs.el: Mark unused args
(c-primary-expr-regexp): Remove unused vars ambiguous-prefix-ops and
unambiguous-prefix-ops.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 8be806094cd..93e8df16c16 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -115,7 +115,7 @@ ;; For Emacs < 22.2. (eval-and-compile - (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (unless (fboundp 'declare-function) (defmacro declare-function (&rest _)))) (eval-when-compile (let ((load-path @@ -245,12 +245,12 @@ the evaluated constant value at compile time." (unless (listp (car-safe ops)) (setq ops (list ops))) (cond ((eq opgroup-filter t) - (setq opgroup-filter (lambda (opgroup) t))) + (setq opgroup-filter (lambda (_opgroup) t))) ((not (functionp opgroup-filter)) (setq opgroup-filter `(lambda (opgroup) (memq opgroup ',opgroup-filter))))) (cond ((eq op-filter t) - (setq op-filter (lambda (op) t))) + (setq op-filter (lambda (_op) t))) ((stringp op-filter) (setq op-filter `(lambda (op) (string-match ,op-filter op))))) @@ -2852,14 +2852,7 @@ Note that Java specific rules are currently applied to tell this from left-assoc right-assoc right-assoc-sequence) - t)) - - (unambiguous-prefix-ops (c--set-difference nonkeyword-prefix-ops - in-or-postfix-ops - :test 'string-equal)) - (ambiguous-prefix-ops (c--intersection nonkeyword-prefix-ops - in-or-postfix-ops - :test 'string-equal))) + t))) (concat "\\(" |