mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove unused lexical variables in cc-defs.el

Browse source 
* 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.
This commit is contained in:
Basil L. Contovounesios 2021-05-04 20:56:37 +01:00
parent d6ddc97884
commit 3783e7fb4d
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/cc-defs.el
View file

@ -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)))