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
0e2c9c70
Commit
0e2c9c70
authored
Sep 29, 1992
by
Jim Blandy
Browse files
* editfns.c (save_excursion_save, save_excursion_restore):
Formatting tweaked for readability.
parent
a080486e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
3 deletions
+6
-3
src/editfns.c
src/editfns.c
+6
-3
No files found.
src/editfns.c
View file @
0e2c9c70
...
...
@@ -275,10 +275,12 @@ store it in a Lisp variable. Example:\n\
Lisp_Object
save_excursion_save
()
{
register
int
visible
=
XBUFFER
(
XWINDOW
(
selected_window
)
->
buffer
)
==
current_buffer
;
register
int
visible
=
(
XBUFFER
(
XWINDOW
(
selected_window
)
->
buffer
)
==
current_buffer
);
return
Fcons
(
Fpoint_marker
(),
Fcons
(
Fcopy_marker
(
current_buffer
->
mark
),
visible
?
Qt
:
Qnil
));
Fcons
(
Fcopy_marker
(
current_buffer
->
mark
),
visible
?
Qt
:
Qnil
));
}
Lisp_Object
...
...
@@ -302,7 +304,8 @@ save_excursion_restore (info)
Fset_marker
(
current_buffer
->
mark
,
tem
,
Fcurrent_buffer
());
unchain_marker
(
tem
);
tem
=
Fcdr
(
Fcdr
(
info
));
if
(
!
NILP
(
tem
)
&&
current_buffer
!=
XBUFFER
(
XWINDOW
(
selected_window
)
->
buffer
))
if
(
!
NILP
(
tem
)
&&
current_buffer
!=
XBUFFER
(
XWINDOW
(
selected_window
)
->
buffer
))
Fswitch_to_buffer
(
Fcurrent_buffer
(),
Qnil
);
return
Qnil
;
}
...
...
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