.emacs-my
changeset 1536 5854fc2dbece
parent 1534 a20f8f4abec7
child 1537 592689d6d222
--- a/.emacs-my	Sun Aug 27 23:12:42 2017 +0300
+++ b/.emacs-my	Wed Sep 06 14:42:39 2017 +0300
@@ -1084,6 +1084,12 @@
 (global-set-key [?\C-x down] #'other-window)
 (global-set-key [s-up] #'my--backward-other-window)
 (global-set-key [s-down] #'other-window)
+(defun my--erase-buffer ()
+  (interactive)
+  (erase-buffer)
+  (when (buffer-file-name)
+    (basic-save-buffer)))
+(global-set-key [s-backspace] #'my--erase-buffer)
 
 (require 'uniquify)
 (setq uniquify-buffer-name-style 'post-forward)