From 0b1e3713fea9b7c28891ec094689f40c0dc996c4 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Tue, 27 Sep 2022 10:02:27 +0000 Subject: [PATCH] * lisp/progmodes/cc-defs.el (c-let*-maybe-max-specpdl-size): Fix glitches --- lisp/progmodes/cc-defs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 59927f0f2ca..77aa3e62bb1 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -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'. -- 2.39.2