[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113560: * lisp/emacs-lisp/nadvice.el (advice--calle
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r113560: * lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new |
Date: |
Fri, 26 Jul 2013 18:41:23 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113560
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-26 14:41:18 -0400
message:
* lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new
`base' arg of backtrace-frame.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/emacs-lisp/nadvice.el nadvice.el-20121015213644-851fdxs2vximj8nr-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-07-26 17:49:52 +0000
+++ b/lisp/ChangeLog 2013-07-26 18:41:18 +0000
@@ -1,3 +1,8 @@
+2013-07-26 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new
+ `base' arg of backtrace-frame.
+
2013-07-26 Juanma Barranquero <address@hidden>
* desktop.el (desktop--select-frame):
=== modified file 'lisp/emacs-lisp/nadvice.el'
--- a/lisp/emacs-lisp/nadvice.el 2013-06-26 22:31:19 +0000
+++ b/lisp/emacs-lisp/nadvice.el 2013-07-26 18:41:18 +0000
@@ -425,7 +425,7 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113560: * lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip): Use the new,
Stefan Monnier <=