Function: edebug-get-spec

edebug-get-spec is a byte-compiled function defined in edebug.el.gz.

Signature

(edebug-get-spec SYMBOL)

Documentation

Return the Edebug spec of a given Lisp expression's head SYMBOL.

The argument is usually a symbol, but it doesn't have to be.

Probably introduced at or before Emacs version 28.1.

Aliases

get-edebug-spec (obsolete since 28.1)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/edebug.el.gz
;;; Form spec utilities.

(defun edebug-get-spec (symbol)
  "Return the Edebug spec of a given Lisp expression's head SYMBOL.
The argument is usually a symbol, but it doesn't have to be."
  ;; Get the spec of symbol resolving all indirection.
  (let ((spec nil)
	(indirect symbol))
    (while
        (and (symbolp indirect)
             (setq indirect
                   (function-get indirect 'edebug-form-spec 'macro)))
      ;; (edebug-trace "indirection: %s" edebug-form-spec)
      (setq spec indirect))
    spec))