diff options
| author | Stefan Monnier <[email protected]> | 2013-01-03 22:42:11 -0500 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2013-01-03 22:42:11 -0500 |
| commit | c0bd248ccb698c6b665a6fd1f50251b54285c98b (patch) | |
| tree | 1f8f09a93cbf3a8d2f9ca515d276deea43397f0e /lisp/subr.el | |
| parent | 4a74c818809349ea30ddb5b2e1498c9f8a08d37e (diff) | |
* lisp/subr.el (internal--called-interactively-p--get-frame): Find aliases
of called-interactively-p as well.
Fixes: debbugs:13237
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 7ca0169abd..11e882d915 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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) |