Function: track-changes--backtrace

track-changes--backtrace is a byte-compiled function defined in track-changes.el.gz.

Signature

(track-changes--backtrace N &optional BASE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/track-changes.el.gz
;;;; Auxiliary functions.

(defun track-changes--backtrace (n &optional base)
  (let ((frames nil))
    (catch 'done
      (mapbacktrace (lambda (&rest frame)
                      (if (>= (setq n (- n 1)) 0)
                          (push frame frames)
                        (push '... frames)
                        (throw 'done nil)))
                    (or base #'track-changes--backtrace)))
    (nreverse frames)))