aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2017-07-04 22:23:57 -0400
committerStefan Monnier2017-07-04 22:23:57 -0400
commitd36fcad30bd951391c8016b47f33738199946f38 (patch)
tree110b33ee1214eac7c1a9e4705f2ec21994212899
parent079d9a38e45f800d006ca36898513a38e5ff59d0 (diff)
downloademacs-d36fcad30bd951391c8016b47f33738199946f38.tar.gz
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.
-rw-r--r--lisp/progmodes/cc-langs.el15
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 @@
115 115
116;; For Emacs < 22.2. 116;; For Emacs < 22.2.
117(eval-and-compile 117(eval-and-compile
118 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) 118 (unless (fboundp 'declare-function) (defmacro declare-function (&rest _))))
119 119
120(eval-when-compile 120(eval-when-compile
121 (let ((load-path 121 (let ((load-path
@@ -245,12 +245,12 @@ the evaluated constant value at compile time."
245 (unless (listp (car-safe ops)) 245 (unless (listp (car-safe ops))
246 (setq ops (list ops))) 246 (setq ops (list ops)))
247 (cond ((eq opgroup-filter t) 247 (cond ((eq opgroup-filter t)
248 (setq opgroup-filter (lambda (opgroup) t))) 248 (setq opgroup-filter (lambda (_opgroup) t)))
249 ((not (functionp opgroup-filter)) 249 ((not (functionp opgroup-filter))
250 (setq opgroup-filter `(lambda (opgroup) 250 (setq opgroup-filter `(lambda (opgroup)
251 (memq opgroup ',opgroup-filter))))) 251 (memq opgroup ',opgroup-filter)))))
252 (cond ((eq op-filter t) 252 (cond ((eq op-filter t)
253 (setq op-filter (lambda (op) t))) 253 (setq op-filter (lambda (_op) t)))
254 ((stringp op-filter) 254 ((stringp op-filter)
255 (setq op-filter `(lambda (op) 255 (setq op-filter `(lambda (op)
256 (string-match ,op-filter op))))) 256 (string-match ,op-filter op)))))
@@ -2852,14 +2852,7 @@ Note that Java specific rules are currently applied to tell this from
2852 left-assoc 2852 left-assoc
2853 right-assoc 2853 right-assoc
2854 right-assoc-sequence) 2854 right-assoc-sequence)
2855 t)) 2855 t)))
2856
2857 (unambiguous-prefix-ops (c--set-difference nonkeyword-prefix-ops
2858 in-or-postfix-ops
2859 :test 'string-equal))
2860 (ambiguous-prefix-ops (c--intersection nonkeyword-prefix-ops
2861 in-or-postfix-ops
2862 :test 'string-equal)))
2863 2856
2864 (concat 2857 (concat
2865 "\\(" 2858 "\\("