aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c
index 2f89e515f8d..eff284820f0 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -618,7 +618,7 @@ interactive_p (exclude_subrs_p)
618 618
619 /* If this isn't a byte-compiled function, there may be a frame at 619 /* If this isn't a byte-compiled function, there may be a frame at
620 the top for Finteractive_p. If so, skip it. */ 620 the top for Finteractive_p. If so, skip it. */
621 fun = Findirect_function (*btp->function); 621 fun = Findirect_function (*btp->function, Qnil);
622 if (SUBRP (fun) && (XSUBR (fun) == &Sinteractive_p 622 if (SUBRP (fun) && (XSUBR (fun) == &Sinteractive_p
623 || XSUBR (fun) == &Scalled_interactively_p)) 623 || XSUBR (fun) == &Scalled_interactively_p))
624 btp = btp->next; 624 btp = btp->next;
@@ -639,7 +639,7 @@ interactive_p (exclude_subrs_p)
639 a special form, ignoring frames for Finteractive_p and/or 639 a special form, ignoring frames for Finteractive_p and/or
640 Fbytecode at the top. If this frame is for a built-in function 640 Fbytecode at the top. If this frame is for a built-in function
641 (such as load or eval-region) return nil. */ 641 (such as load or eval-region) return nil. */
642 fun = Findirect_function (*btp->function); 642 fun = Findirect_function (*btp->function, Qnil);
643 if (exclude_subrs_p && SUBRP (fun)) 643 if (exclude_subrs_p && SUBRP (fun))
644 return 0; 644 return 0;
645 645
@@ -2079,7 +2079,7 @@ do_autoload (fundef, funname)
2079 Vautoload_queue = Qt; 2079 Vautoload_queue = Qt;
2080 unbind_to (count, Qnil); 2080 unbind_to (count, Qnil);
2081 2081
2082 fun = Findirect_function (fun); 2082 fun = Findirect_function (fun, Qnil);
2083 2083
2084 if (!NILP (Fequal (fun, fundef))) 2084 if (!NILP (Fequal (fun, fundef)))
2085 error ("Autoloading failed to define function %s", 2085 error ("Autoloading failed to define function %s",
@@ -2142,7 +2142,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
2142 /* At this point, only original_fun and original_args 2142 /* At this point, only original_fun and original_args
2143 have values that will be used below */ 2143 have values that will be used below */
2144 retry: 2144 retry:
2145 fun = Findirect_function (original_fun); 2145 fun = Findirect_function (original_fun, Qnil);
2146 2146
2147 if (SUBRP (fun)) 2147 if (SUBRP (fun))
2148 { 2148 {
@@ -2841,7 +2841,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
2841 2841
2842 fun = args[0]; 2842 fun = args[0];
2843 2843
2844 fun = Findirect_function (fun); 2844 fun = Findirect_function (fun, Qnil);
2845 2845
2846 if (SUBRP (fun)) 2846 if (SUBRP (fun))
2847 { 2847 {