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

[Alan Mackenzie]

branch: master
commit 0b1e3713fea9b7c28891ec094689f40c0dc996c4
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>

    * 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 59927f0f2c..77aa3e62bb 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'.