diff options
| author | Stefan Monnier | 2017-07-04 22:23:57 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-07-04 22:23:57 -0400 |
| commit | d36fcad30bd951391c8016b47f33738199946f38 (patch) | |
| tree | 110b33ee1214eac7c1a9e4705f2ec21994212899 | |
| parent | 079d9a38e45f800d006ca36898513a38e5ff59d0 (diff) | |
| download | emacs-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.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 @@ | |||
| 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 | "\\(" |