Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4bc8c7d2
Commit
4bc8c7d2
authored
Sep 23, 1996
by
Richard M. Stallman
Browse files
(Fsave_current_buffer): New function.
(syms_of_editfns): defsubr it.
parent
111e5992
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
1 deletion
+17
-1
src/editfns.c
src/editfns.c
+17
-1
No files found.
src/editfns.c
View file @
4bc8c7d2
...
...
@@ -335,7 +335,22 @@ The state of activation of the mark is also restored.")
int
count
=
specpdl_ptr
-
specpdl
;
record_unwind_protect
(
save_excursion_restore
,
save_excursion_save
());
val
=
Fprogn
(
args
);
return
unbind_to
(
count
,
val
);
}
DEFUN
(
"save-current-buffer"
,
Fsave_current_buffer
,
Ssave_current_buffer
,
0
,
UNEVALLED
,
0
,
"Save the current buffer; execute BODY; restore the current buffer.
\n
\
Executes BODY just like `progn'."
)
(
args
)
Lisp_Object
args
;
{
register
Lisp_Object
val
;
int
count
=
specpdl_ptr
-
specpdl
;
record_unwind_protect
(
Fset_buffer
,
Fcurrent_buffer
());
val
=
Fprogn
(
args
);
return
unbind_to
(
count
,
val
);
}
...
...
@@ -2515,6 +2530,7 @@ functions if all the text being accessed has this property.");
/* defsubr (&Smark); */
/* defsubr (&Sset_mark); */
defsubr
(
&
Ssave_excursion
);
defsubr
(
&
Ssave_current_buffer
);
defsubr
(
&
Sbufsize
);
defsubr
(
&
Spoint_max
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment