
(provide (quote backtrace-fix))

(provide (quote backtracef))

(defvar error-flag)

(or (fboundp (quote original-backtrace)) (fset (quote original-backtrace) (symbol-function (quote backtrace))))

(defconst backtrace-junk "  original-backtrace()
  (condition-case ...)
  (let ...)
  (save-excursion ...)
  (let ...)
")

(defun backtrace nil "\
Print a trace of Lisp function calls currently active.
Output stream used is value of standard-output." (byte-code "ГЉЕЖ!q€Зp!€И €pЙКЛЏ)€…& db€МН!€О`d\"€eb€П
ГД#€Оe`\"€РСed\"!))€Г‡" [err-flag standard-output backtrace-junk nil t get-buffer-create " backtrace-temp" buffer-flush-undo erase-buffer err (byte-code "А ‡" [original-backtrace] 2) ((error (byte-code "	‰‡" [error-flag err] 2))) beginning-of-line 1 delete-region search-forward princ buffer-substring] 11))