aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c25
1 files changed, 17 insertions, 8 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 291c7d3f911..8f983692124 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -931,8 +931,8 @@ Interactively, CLONE and INHIBIT-BUFFER-HOOKS are nil. */)
931 bset_local_minor_modes (b, Qnil); 931 bset_local_minor_modes (b, Qnil);
932 bset_auto_save_file_name (b, Qnil); 932 bset_auto_save_file_name (b, Qnil);
933 set_buffer_internal_1 (b); 933 set_buffer_internal_1 (b);
934 Fset (intern ("buffer-save-without-query"), Qnil); 934 Fset (Qbuffer_save_without_query, Qnil);
935 Fset (intern ("buffer-file-number"), Qnil); 935 Fset (Qbuffer_file_number, Qnil);
936 if (!NILP (Flocal_variable_p (Qbuffer_stale_function, base_buffer))) 936 if (!NILP (Flocal_variable_p (Qbuffer_stale_function, base_buffer)))
937 Fkill_local_variable (Qbuffer_stale_function); 937 Fkill_local_variable (Qbuffer_stale_function);
938 /* Cloned buffers need extra setup, to do things such as deep 938 /* Cloned buffers need extra setup, to do things such as deep
@@ -1477,7 +1477,7 @@ No argument or nil as argument means use current buffer as BUFFER. */)
1477 } 1477 }
1478 1478
1479 tem = buffer_local_variables_1 (buf, PER_BUFFER_VAR_OFFSET (undo_list), 1479 tem = buffer_local_variables_1 (buf, PER_BUFFER_VAR_OFFSET (undo_list),
1480 intern ("buffer-undo-list")); 1480 Qbuffer_undo_list);
1481 if (!NILP (tem)) 1481 if (!NILP (tem))
1482 result = Fcons (tem, result); 1482 result = Fcons (tem, result);
1483 1483
@@ -1704,11 +1704,11 @@ This does not change the name of the visited file (if any). */)
1704 Fsetcar (Frassq (buf, Vbuffer_alist), newname); 1704 Fsetcar (Frassq (buf, Vbuffer_alist), newname);
1705 if (NILP (BVAR (current_buffer, filename)) 1705 if (NILP (BVAR (current_buffer, filename))
1706 && !NILP (BVAR (current_buffer, auto_save_file_name))) 1706 && !NILP (BVAR (current_buffer, auto_save_file_name)))
1707 call0 (intern ("rename-auto-save-file")); 1707 call0 (Qrename_auto_save_file);
1708 1708
1709 run_buffer_list_update_hook (current_buffer); 1709 run_buffer_list_update_hook (current_buffer);
1710 1710
1711 call2 (intern ("uniquify--rename-buffer-advice"), 1711 call2 (Quniquify__rename_buffer_advice,
1712 requestedname, unique); 1712 requestedname, unique);
1713 1713
1714 /* Refetch since that last call may have done GC. */ 1714 /* Refetch since that last call may have done GC. */
@@ -1956,7 +1956,7 @@ cleaning up all windows currently displaying the buffer to be killed. */)
1956 { 1956 {
1957 tem = do_yes_or_no_p (build_string ("Delete auto-save file? ")); 1957 tem = do_yes_or_no_p (build_string ("Delete auto-save file? "));
1958 if (!NILP (tem)) 1958 if (!NILP (tem))
1959 call0 (intern ("delete-auto-save-file-if-necessary")); 1959 call0 (Qdelete_auto_save_file_if_necessary);
1960 } 1960 }
1961 1961
1962 /* If the hooks have killed the buffer, exit now. */ 1962 /* If the hooks have killed the buffer, exit now. */
@@ -2251,7 +2251,7 @@ the current buffer's major mode. */)
2251 error ("Attempt to set major mode for a dead buffer"); 2251 error ("Attempt to set major mode for a dead buffer");
2252 2252
2253 if (strcmp (SSDATA (BVAR (XBUFFER (buffer), name)), "*scratch*") == 0) 2253 if (strcmp (SSDATA (BVAR (XBUFFER (buffer), name)), "*scratch*") == 0)
2254 function = find_symbol_value (intern ("initial-major-mode")); 2254 function = find_symbol_value (Qinitial_major_mode);
2255 else 2255 else
2256 { 2256 {
2257 function = BVAR (&buffer_defaults, major_mode); 2257 function = BVAR (&buffer_defaults, major_mode);
@@ -2936,7 +2936,7 @@ current buffer is cleared. */)
2936 /* Represent all the above changes by a special undo entry. */ 2936 /* Represent all the above changes by a special undo entry. */
2937 bset_undo_list (current_buffer, 2937 bset_undo_list (current_buffer,
2938 Fcons (list3 (Qapply, 2938 Fcons (list3 (Qapply,
2939 intern ("set-buffer-multibyte"), 2939 Qset_buffer_multibyte,
2940 NILP (flag) ? Qt : Qnil), 2940 NILP (flag) ? Qt : Qnil),
2941 old_undo)); 2941 old_undo));
2942 } 2942 }
@@ -6112,4 +6112,13 @@ There is no reason to change that value except for debugging purposes. */);
6112 DEFSYM (Qbuffer_stale_function, "buffer-stale-function"); 6112 DEFSYM (Qbuffer_stale_function, "buffer-stale-function");
6113 6113
6114 Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt); 6114 Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt);
6115
6116 DEFSYM (Qbuffer_save_without_query, "buffer-save-without-query");
6117 DEFSYM (Qbuffer_file_number, "buffer-file-number");
6118 DEFSYM (Qbuffer_undo_list, "buffer-undo-list");
6119 DEFSYM (Qrename_auto_save_file, "rename-auto-save-file");
6120 DEFSYM (Quniquify__rename_buffer_advice, "uniquify--rename-buffer-advice");
6121 DEFSYM (Qdelete_auto_save_file_if_necessary, "delete-auto-save-file-if-necessary");
6122 DEFSYM (Qinitial_major_mode, "initial-major-mode");
6123 DEFSYM (Qset_buffer_multibyte, "set-buffer-multibyte");
6115} 6124}