diff options
| author | Richard M. Stallman | 1998-01-21 21:40:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-21 21:40:51 +0000 |
| commit | cb5e5f74c40f9a6ea04e8314852f3129aced6f6f (patch) | |
| tree | a166a46f6add91cfb39863316972ae6bbc38df7c /src | |
| parent | acfd10115299f5397ea34956f7dbd4b3f43d9f03 (diff) | |
| download | emacs-cb5e5f74c40f9a6ea04e8314852f3129aced6f6f.tar.gz emacs-cb5e5f74c40f9a6ea04e8314852f3129aced6f6f.zip | |
(Fsave_current_buffer): Use set_buffer_if_live.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/editfns.c b/src/editfns.c index fa6881c35b3..698abeadae8 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -402,7 +402,7 @@ Executes BODY just like `progn'.") | |||
| 402 | register Lisp_Object val; | 402 | register Lisp_Object val; |
| 403 | int count = specpdl_ptr - specpdl; | 403 | int count = specpdl_ptr - specpdl; |
| 404 | 404 | ||
| 405 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | 405 | record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ()); |
| 406 | 406 | ||
| 407 | val = Fprogn (args); | 407 | val = Fprogn (args); |
| 408 | return unbind_to (count, val); | 408 | return unbind_to (count, val); |