diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2021-05-04 20:56:37 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2021-05-04 21:00:05 +0100 |
| commit | 3783e7fb4dbf4ed9620d6e3d54ef3462331e6660 (patch) | |
| tree | fc244c4513b1ec8e8453aa5e45e1b9d8fc6d1da5 /lisp/progmodes/cc-defs.el | |
| parent | d6ddc97884c3106a59b956fbc4e4f5f3e4aaf4e2 (diff) | |
| download | emacs-3783e7fb4dbf4ed9620d6e3d54ef3462331e6660.tar.gz emacs-3783e7fb4dbf4ed9620d6e3d54ef3462331e6660.tar.bz2 emacs-3783e7fb4dbf4ed9620d6e3d54ef3462331e6660.zip | |
Remove unused lexical variables in cc-defs.el
* lisp/progmodes/cc-defs.el (c-sc-scan-lists-no-category+1+1)
(c-sc-scan-lists-no-category+1-1, c-sc-scan-lists-no-category-1+1)
(c-sc-scan-lists-no-category-1-1): Remove unused lexical variable
'here' to pacify byte-compilation warnings in cc-engine.el.
Diffstat (limited to 'lisp/progmodes/cc-defs.el')
| -rw-r--r-- | lisp/progmodes/cc-defs.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 02292327581..5d93435066f 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -1653,8 +1653,7 @@ with value CHAR in the region [FROM to)." ;; determined by and angle bracket; or (ii) is inside a macro whose start ;; isn't POINT-MACRO-START doesn't count as a finishing position. (declare (debug t)) - `(let ((here (point)) - (pos (scan-lists ,from 1 1))) + `(let ((pos (scan-lists ,from 1 1))) (while (eq (char-before pos) ?>) (setq pos (scan-lists pos 1 1))) pos)) @@ -1664,8 +1663,7 @@ with value CHAR in the region [FROM to)." ;; determined by an angle bracket; or (ii) is inside a macro whose start ;; isn't POINT-MACRO-START doesn't count as a finishing position. (declare (debug t)) - `(let ((here (point)) - (pos (scan-lists ,from 1 -1))) + `(let ((pos (scan-lists ,from 1 -1))) (while (eq (char-before pos) ?<) (setq pos (scan-lists pos 1 1)) (setq pos (scan-lists pos 1 -1))) @@ -1676,8 +1674,7 @@ with value CHAR in the region [FROM to)." ;; determined by and angle bracket; or (ii) is inside a macro whose start ;; isn't POINT-MACRO-START doesn't count as a finishing position. (declare (debug t)) - `(let ((here (point)) - (pos (scan-lists ,from -1 1))) + `(let ((pos (scan-lists ,from -1 1))) (while (eq (char-after pos) ?<) (setq pos (scan-lists pos -1 1))) pos)) @@ -1687,8 +1684,7 @@ with value CHAR in the region [FROM to)." ;; determined by and angle bracket; or (ii) is inside a macro whose start ;; isn't POINT-MACRO-START doesn't count as a finishing position. (declare (debug t)) - `(let ((here (point)) - (pos (scan-lists ,from -1 -1))) + `(let ((pos (scan-lists ,from -1 -1))) (while (eq (char-after pos) ?>) (setq pos (scan-lists pos -1 1)) (setq pos (scan-lists pos -1 -1))) |