procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/cc-defs.el (c-safe-scan-lists): Evaluate LIMIT just once

Browse source
This commit is contained in:
Alan Mackenzie 2022-08-17 20:34:43 +00:00
parent 31f289625c
commit f0c5de7839
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -794,15 +794,16 @@ right side of it."
`(c-safe (scan-lists ,from ,count ,depth)))))
(if limit
`(save-restriction
(when ,limit
,(if (numberp count)
(if (< count 0)
`(narrow-to-region ,limit (point-max))
`(narrow-to-region (point-min) ,limit))
`(if (< ,count 0)
(narrow-to-region ,limit (point-max))
(narrow-to-region (point-min) ,limit))))
,res)
(let ((-limit- ,limit))
(when -limit-
,(if (numberp count)
(if (< count 0)
`(narrow-to-region -limit- (point-max))
`(narrow-to-region (point-min) -limit-))
`(if (< ,count 0)
(narrow-to-region -limit- (point-max))
(narrow-to-region (point-min) -limit-))))
,res))
res)))