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

* lisp/progmodes/cc-defs.el (c-let*-maybe-max-specpdl-size): Fix glitches

Browse source
This commit is contained in:
Alan Mackenzie 2022-09-27 10:02:27 +00:00
parent a889977e0b
commit 0b1e3713fe
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2633,7 +2633,7 @@ fallback definition for all modes, to break the cycle).")
;; Like let*, but doesn't bind `max-specpdl-size' if that variable
;; is in the bindings list and either doesn't exist or is obsolete.
(declare (debug let*) (indent 1))
(let ((-varlist- varlist) msp-binding)
(let ((-varlist- (copy-sequence varlist)) msp-binding)
(if (or (not (boundp 'max-specpdl-size))
(get 'max-specpdl-size 'byte-obsolete-variable))
(cond
@ -2641,7 +2641,7 @@ fallback definition for all modes, to break the cycle).")
(setq -varlist- (delq 'max-specpdl-size -varlist-)))
((setq msp-binding (assq 'max-specpdl-size -varlist-))
(setq -varlist- (delq msp-binding -varlist-)))))
`(let* ,varlist ,@body)))
`(let* ,-varlist- ,@body)))
(defun c-get-lang-constant (name &optional source-files mode)
;; Used by `c-lang-const'.