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
e87f38ef
Commit
e87f38ef
authored
Jun 16, 1993
by
Jim Blandy
Browse files
* buffer.c (list_buffers_1): Return the desired point.
(Flist_buffers): Put point there in the buffer summary.
parent
1c7e6fbc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
8 deletions
+13
-8
src/buffer.c
src/buffer.c
+13
-8
No files found.
src/buffer.c
View file @
e87f38ef
...
...
@@ -1106,11 +1106,7 @@ list_buffers_1 (files)
current_buffer
->
read_only
=
Qt
;
set_buffer_internal
(
old
);
/* Foo. This doesn't work since temp_output_buffer_show sets point to 1
if (desired_point)
XBUFFER (Vstandard_output)->text.pointloc = desired_point;
*/
return
Qnil
;
return
make_number
(
desired_point
);
}
DEFUN
(
"list-buffers"
,
Flist_buffers
,
Slist_buffers
,
0
,
1
,
"P"
,
...
...
@@ -1124,9 +1120,18 @@ The R column contains a % for buffers that are read-only.")
(
files
)
Lisp_Object
files
;
{
internal_with_output_to_temp_buffer
(
"*Buffer List*"
,
list_buffers_1
,
files
);
return
Qnil
;
int
count
=
specpdl_ptr
-
specpdl
;
Lisp_Object
desired_point
;
desired_point
=
internal_with_output_to_temp_buffer
(
"*Buffer List*"
,
list_buffers_1
,
files
);
record_unwind_protect
(
save_excursion_restore
,
save_excursion_save
());
Fset_buffer
(
build_string
(
"*Buffer List*"
));
SET_PT
(
XINT
(
desired_point
));
return
unbind_to
(
count
,
Qnil
);
}
DEFUN
(
"kill-all-local-variables"
,
Fkill_all_local_variables
,
Skill_all_local_variables
,
...
...
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