diff options
| author | Stefan Monnier | 2003-05-01 19:38:05 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-01 19:38:05 +0000 |
| commit | 04b28167ad88f2f397583f86cd56fdccd6b7a81f (patch) | |
| tree | 3381be74bd2e73b9918467b32e7d5e09a189a0e4 /src/eval.c | |
| parent | 742f87104868ba52f6f0ecb4a470de0ef75d220a (diff) | |
| download | emacs-04b28167ad88f2f397583f86cd56fdccd6b7a81f.tar.gz emacs-04b28167ad88f2f397583f86cd56fdccd6b7a81f.zip | |
(Funwind_protect): Use func = Fprogn rather symbol = Qnil.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index 2b71fe243cb..0310e165919 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1187,7 +1187,7 @@ usage: (unwind-protect BODYFORM UNWINDFORMS...) */) | |||
| 1187 | Lisp_Object val; | 1187 | Lisp_Object val; |
| 1188 | int count = SPECPDL_INDEX (); | 1188 | int count = SPECPDL_INDEX (); |
| 1189 | 1189 | ||
| 1190 | record_unwind_protect (0, Fcdr (args)); | 1190 | record_unwind_protect (Fprogn, Fcdr (args)); |
| 1191 | val = Feval (Fcar (args)); | 1191 | val = Feval (Fcar (args)); |
| 1192 | return unbind_to (count, val); | 1192 | return unbind_to (count, val); |
| 1193 | } | 1193 | } |