diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 25 |
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 | } |