Commit 659a9010 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/subr.el (internal--called-interactively-p--get-frame): Avoid filling

current-load-list.

Fixes: debbugs:13366
parent 984096ed
2013-02-03 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (internal--called-interactively-p--get-frame): Avoid filling
current-load-list (bug#13366).
2013-02-02 Christopher Schmidt <christopher@ch.ristopher.com>
* progmodes/compile.el (compilation-error-regexp-alist-alist):
......
......@@ -3976,12 +3976,14 @@ the number of frames to skip (minus 1).")
;; "static" variables.
(let ((sym (make-symbol "base-index")))
`(progn
(defvar ,sym
(defvar ,sym)
(unless (boundp ',sym)
(let ((i 1))
(message "Computing base-index")
(while (not (eq (indirect-function (nth 1 (backtrace-frame i)) t)
(indirect-function 'called-interactively-p)))
(setq i (1+ i)))
i))
(setq ,sym i)))
;; (unless (eq (nth 1 (backtrace-frame ,sym)) 'called-interactively-p)
;; (error "called-interactively-p: %s is out-of-sync!" ,sym))
(backtrace-frame (+ ,sym ,n)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment