mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(Finteractive_p): Use XSUBR instead of its expansion.

Browse Source
This commit is contained in:
Karl Heuer 1994-11-16 01:14:23 +00:00
parent 81c1bd20f7
commit 0598f77384
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/eval.c
View File

@ -484,8 +484,7 @@ and input is currently coming from the keyboard (not in keyboard macro).")
/* If this isn't a byte-compiled function, there may be a frame at
the top for Finteractive_p itself. If so, skip it. */
fun = Findirect_function (*btp->function);
if (SUBRP (fun)
&& (struct Lisp_Subr *) XPNTR (fun) == &Sinteractive_p)
if (SUBRP (fun) && XSUBR (fun) == &Sinteractive_p)
btp = btp->next;
/* If we're running an Emacs 18-style byte-compiled function, there