Mercurial > emacs
comparison src/buffer.c @ 5070:3dab6fdd6bc6
(Flist_buffers): Always return a value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 19 Nov 1993 17:48:44 +0000 |
| parents | eca469f14d11 |
| children | f403be34a2d6 |
comparison
equal
deleted
inserted
replaced
| 5069:47cc31b47402 | 5070:3dab6fdd6bc6 |
|---|---|
| 1139 (files) | 1139 (files) |
| 1140 Lisp_Object files; | 1140 Lisp_Object files; |
| 1141 { | 1141 { |
| 1142 Lisp_Object desired_point; | 1142 Lisp_Object desired_point; |
| 1143 | 1143 |
| 1144 desired_point = | 1144 desired_point |
| 1145 internal_with_output_to_temp_buffer ("*Buffer List*", | 1145 = internal_with_output_to_temp_buffer ("*Buffer List*", |
| 1146 list_buffers_1, files); | 1146 list_buffers_1, files); |
| 1147 | 1147 |
| 1148 if (NUMBERP (desired_point)) | 1148 if (NUMBERP (desired_point)) |
| 1149 { | 1149 { |
| 1150 int count = specpdl_ptr - specpdl; | 1150 int count = specpdl_ptr - specpdl; |
| 1151 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | 1151 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
| 1152 Fset_buffer (build_string ("*Buffer List*")); | 1152 Fset_buffer (build_string ("*Buffer List*")); |
| 1153 SET_PT (XINT (desired_point)); | 1153 SET_PT (XINT (desired_point)); |
| 1154 return unbind_to (count, Qnil); | 1154 return unbind_to (count, Qnil); |
| 1155 } | 1155 } |
| 1156 return Qnil; | |
| 1156 } | 1157 } |
| 1157 | 1158 |
| 1158 DEFUN ("kill-all-local-variables", Fkill_all_local_variables, Skill_all_local_variables, | 1159 DEFUN ("kill-all-local-variables", Fkill_all_local_variables, Skill_all_local_variables, |
| 1159 0, 0, 0, | 1160 0, 0, 0, |
| 1160 "Switch to Fundamental mode by killing current buffer's local variables.\n\ | 1161 "Switch to Fundamental mode by killing current buffer's local variables.\n\ |