]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/progmodes/cc-langs.el: Mark unused args
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 5 Jul 2017 02:23:57 +0000 (22:23 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 5 Jul 2017 02:23:57 +0000 (22:23 -0400)
(c-primary-expr-regexp): Remove unused vars ambiguous-prefix-ops and
unambiguous-prefix-ops.

lisp/progmodes/cc-langs.el

index 8be806094cd6f894ce2eb8053aad85cae08f830f..93e8df16c162c97f73edbace245dd61dbfd1a53d 100644 (file)
 
 ;; 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
        "\\("