diff options
| author | Kenichi Handa | 2012-11-18 20:29:54 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2012-11-18 20:29:54 +0900 |
| commit | e1d276cbf9e18f13101328f56bed1a1c0a66e63a (patch) | |
| tree | f1fdfc9550866b9e323da072ff2eb38821996246 /src/eval.c | |
| parent | 00dc3ead070e2e8017629f4d60d8366ac00c32cb (diff) | |
| parent | dfa8939b2827d23e02f3d7f6622e3a619ec6fd90 (diff) | |
| download | emacs-e1d276cbf9e18f13101328f56bed1a1c0a66e63a.tar.gz emacs-e1d276cbf9e18f13101328f56bed1a1c0a66e63a.zip | |
merge trunk
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index dcd48cb7250..f8a76646352 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -508,7 +508,7 @@ spec that specifies non-nil unconditionally (such as \"p\"); or (ii) | |||
| 508 | use `called-interactively-p'. */) | 508 | use `called-interactively-p'. */) |
| 509 | (void) | 509 | (void) |
| 510 | { | 510 | { |
| 511 | return interactive_p () ? Qt : Qnil; | 511 | return (INTERACTIVE && interactive_p ()) ? Qt : Qnil; |
| 512 | } | 512 | } |
| 513 | 513 | ||
| 514 | 514 | ||
| @@ -3369,7 +3369,7 @@ mark_backtrace (void) | |||
| 3369 | 3369 | ||
| 3370 | for (backlist = backtrace_list; backlist; backlist = backlist->next) | 3370 | for (backlist = backtrace_list; backlist; backlist = backlist->next) |
| 3371 | { | 3371 | { |
| 3372 | mark_object (*backlist->function); | 3372 | mark_object (backlist->function); |
| 3373 | 3373 | ||
| 3374 | if (backlist->nargs == UNEVALLED | 3374 | if (backlist->nargs == UNEVALLED |
| 3375 | || backlist->nargs == MANY) /* FIXME: Can this happen? */ | 3375 | || backlist->nargs == MANY) /* FIXME: Can this happen? */ |