Function: c-let*-maybe-max-specpdl-size

c-let*-maybe-max-specpdl-size is a macro defined in cc-defs.el.gz.

Signature

(c-let*-maybe-max-specpdl-size VARLIST &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cc-defs.el.gz
(defmacro c-let*-maybe-max-specpdl-size (varlist &rest body)
  ;; 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- (copy-sequence varlist)) msp-binding)
    (if (or (not (boundp 'max-specpdl-size))
	    (get 'max-specpdl-size 'byte-obsolete-variable))
	(cond
	 ((memq 'max-specpdl-size -varlist-)
	  (setq -varlist- (delq 'max-specpdl-size -varlist-)))
	 ((setq msp-binding (assq 'max-specpdl-size -varlist-))
	  (setq -varlist- (delq msp-binding -varlist-)))))
    `(let* ,-varlist- ,@body)))