equal
deleted
inserted
replaced
1263 (global-set-key [s-down] #'other-window) |
1263 (global-set-key [s-down] #'other-window) |
1264 |
1264 |
1265 (defun my--erase-buffer () |
1265 (defun my--erase-buffer () |
1266 (interactive) |
1266 (interactive) |
1267 (advice-add #'ask-user-about-supersession-threat :override #'identity) |
1267 (advice-add #'ask-user-about-supersession-threat :override #'identity) |
|
1268 (setq buffer-read-only nil) |
1268 (erase-buffer) |
1269 (erase-buffer) |
1269 (when (buffer-file-name) |
1270 (when (buffer-file-name) |
1270 (basic-save-buffer-1) |
1271 (basic-save-buffer-1) |
1271 (revert-buffer)) |
1272 (revert-buffer)) |
1272 (advice-remove #'ask-user-about-supersession-threat #'identity)) |
1273 (advice-remove #'ask-user-about-supersession-threat #'identity)) |