aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-06-03 16:45:20 +0000
committerKaroly Lorentey2004-06-03 16:45:20 +0000
commitbf2d7b586bf6add7527739fcbdc007e921259397 (patch)
treeacf06ea1cb8dd626d6a1e746f0306e315838a068 /src/eval.c
parent190a56d6e02f134591a9d8861b8c4aa55bbec79b (diff)
parent52deb19f2472448f319e96b627bc8d84d86134fe (diff)
downloademacs-bf2d7b586bf6add7527739fcbdc007e921259397.tar.gz
emacs-bf2d7b586bf6add7527739fcbdc007e921259397.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-357 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-358 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-359 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-360 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362 Support " [...]" style defaults in minibuffer-electric-default-mode * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-363 (read-number): Use canonical format for default in prompt. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-364 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-365 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-184
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c
index 921a7533a60..e1da1def446 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1220,7 +1220,7 @@ VAR may be nil; then you do not get access to the signal information.
1220 1220
1221The value of the last BODY form is returned from the condition-case. 1221The value of the last BODY form is returned from the condition-case.
1222See also the function `signal' for more info. 1222See also the function `signal' for more info.
1223usage: (condition-case VAR BODYFORM HANDLERS...) */) 1223usage: (condition-case VAR BODYFORM &rest HANDLERS) */)
1224 (args) 1224 (args)
1225 Lisp_Object args; 1225 Lisp_Object args;
1226{ 1226{
@@ -1235,10 +1235,10 @@ usage: (condition-case VAR BODYFORM HANDLERS...) */)
1235 handlers = Fcdr (Fcdr (args)); 1235 handlers = Fcdr (Fcdr (args));
1236 CHECK_SYMBOL (var); 1236 CHECK_SYMBOL (var);
1237 1237
1238 for (val = handlers; ! NILP (val); val = Fcdr (val)) 1238 for (val = handlers; CONSP (val); val = XCDR (val))
1239 { 1239 {
1240 Lisp_Object tem; 1240 Lisp_Object tem;
1241 tem = Fcar (val); 1241 tem = XCAR (val);
1242 if (! (NILP (tem) 1242 if (! (NILP (tem)
1243 || (CONSP (tem) 1243 || (CONSP (tem)
1244 && (SYMBOLP (XCAR (tem)) 1244 && (SYMBOLP (XCAR (tem))