diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-26 14:41:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-26 14:41:18 -0400 |
| commit | 7ced0d044656b5fa4a9cd2bcc2326908be432bcf (patch) | |
| tree | 322bac2dc4bcfbd9b1eb00fed86ba961efa1ff51 | |
| parent | d58d31fbe7f1ee045f2040ac65c3b7f8797b30fc (diff) | |
| download | emacs-7ced0d044656b5fa4a9cd2bcc2326908be432bcf.tar.gz | |
* lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new
`base' arg of backtrace-frame.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2f03c15301..9aecbd0f280 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-07-26 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new + `base' arg of backtrace-frame. + 2013-07-26 Juanma Barranquero <lekktu@gmail.com> * desktop.el (desktop--select-frame): diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 8b149aad7bb..edcfc409085 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el @@ -425,7 +425,7 @@ of the piece of advice." (get-next-frame (lambda () (setq frame1 frame2) - (setq frame2 (internal--called-interactively-p--get-frame i)) + (setq frame2 (backtrace-frame i #'called-interactively-p)) ;; (message "Advice Frame %d = %S" i frame2) (setq i (1+ i))))) (when (and (eq (nth 1 frame2) 'apply) |