diff options
| author | Karl Heuer | 1994-11-16 01:14:23 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-11-16 01:14:23 +0000 |
| commit | 0598f773848cf8b07f6b8ead258302fa3c2c4678 (patch) | |
| tree | 02a6ad243459bf7884628c7dc8dc9c93fb6c0872 /src/eval.c | |
| parent | 81c1bd20f7a80735bca618e830a2ca248f714fa6 (diff) | |
| download | emacs-0598f773848cf8b07f6b8ead258302fa3c2c4678.tar.gz emacs-0598f773848cf8b07f6b8ead258302fa3c2c4678.zip | |
(Finteractive_p): Use XSUBR instead of its expansion.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index e48441b0043..eafb9e84a65 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -484,8 +484,7 @@ and input is currently coming from the keyboard (not in keyboard macro).") | |||
| 484 | /* If this isn't a byte-compiled function, there may be a frame at | 484 | /* If this isn't a byte-compiled function, there may be a frame at |
| 485 | the top for Finteractive_p itself. If so, skip it. */ | 485 | the top for Finteractive_p itself. If so, skip it. */ |
| 486 | fun = Findirect_function (*btp->function); | 486 | fun = Findirect_function (*btp->function); |
| 487 | if (SUBRP (fun) | 487 | if (SUBRP (fun) && XSUBR (fun) == &Sinteractive_p) |
| 488 | && (struct Lisp_Subr *) XPNTR (fun) == &Sinteractive_p) | ||
| 489 | btp = btp->next; | 488 | btp = btp->next; |
| 490 | 489 | ||
| 491 | /* If we're running an Emacs 18-style byte-compiled function, there | 490 | /* If we're running an Emacs 18-style byte-compiled function, there |