From 3783e7fb4dbf4ed9620d6e3d54ef3462331e6660 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Tue, 4 May 2021 20:56:37 +0100 Subject: [PATCH] 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. --- lisp/progmodes/cc-defs.el | 12 ++++-------- 1 file 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))) -- 2.39.5