diff options
| author | Karoly Lorentey | 2006-02-12 00:15:44 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-02-12 00:15:44 +0000 |
| commit | 1913a2b35da45eeeb71ef851975be7d57c11de78 (patch) | |
| tree | 6cd59883fb931999da5b62c03b321ade6f77e66e /src/eval.c | |
| parent | a5805c9d0240fab504f2a3e32db6449392005fb6 (diff) | |
| parent | a528b71e55b2b244a5dd35318713ccb20398cbbf (diff) | |
| download | emacs-1913a2b35da45eeeb71ef851975be7d57c11de78.tar.gz emacs-1913a2b35da45eeeb71ef851975be7d57c11de78.zip | |
Merged from emacs@sv.gnu.org
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-49
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-50
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-51
Make constrain-to-field notice overlays
* emacs@sv.gnu.org/emacs--devo--0--patch-52
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-53
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-54
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-55
Merge from erc--emacs--0
* emacs@sv.gnu.org/emacs--devo--0--patch-56
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-57
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-58
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-59
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-60
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-61
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-62
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-63
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-64
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-65
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-66
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-67
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-68
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-69
rcirc: Add flexible response formatting; Add nick abbrevs
* emacs@sv.gnu.org/emacs--devo--0--patch-70
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-71
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-72
Update from CVS: man/dired.texi (Tumme): More tumme documentation.
* emacs@sv.gnu.org/gnus--rel--5.10--patch-18
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-19
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-20
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-21
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-22
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-23
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-24
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-25
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-26
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-27
Update from CVS: lisp/gnus.el: Remove bogus comment.
* emacs@sv.gnu.org/gnus--rel--5.10--patch-28
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-29
Add sendmail.el and smptmail.el from Emacs tree to contrib/
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-508
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/eval.c b/src/eval.c index a6c58bc2425..eff284820f0 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Evaluator for GNU Emacs Lisp interpreter. | 1 | /* Evaluator for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1999, 2000, 2001, | 2 | Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1999, 2000, 2001, |
| 3 | 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 3 | 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -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 | { |