mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

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

Browse Source 
of called-interactively-p as well.

Fixes: debbugs:13237
This commit is contained in:
Stefan Monnier 2013-01-03 22:42:11 -05:00
parent 4a74c81880
commit c0bd248ccb
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2013-01-04 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (internal--called-interactively-p--get-frame): Find aliases
of called-interactively-p as well (bug#13237).
* view.el (view--enable, view--disable): Rename from view-mode-enable
and view-mode-disable and assume it's called from view-mode.
(view-mode-enable, view-mode-disable): Redefine as obsolete

4
lisp/subr.el
View File

@ -3977,8 +3977,8 @@ the number of frames to skip (minus 1).")
`(progn
(defvar ,sym
(let ((i 1))
(while (not (eq (nth 1 (backtrace-frame i))
'called-interactively-p))
(while (not (eq (indirect-function (nth 1 (backtrace-frame i)) t)
(indirect-function 'called-interactively-p)))
(setq i (1+ i)))
i))
;; (unless (eq (nth 1 (backtrace-frame ,sym)) 'called-interactively-p)