.emacs-my
changeset 1544 2e84ca7e2578
parent 1543 438174f1f3f5
child 1545 d77b6bb30ea4
equal deleted inserted replaced
1543:438174f1f3f5 1544:2e84ca7e2578
  1119   (other-window -1))
  1119   (other-window -1))
  1120 (global-set-key [?\C-x up] #'my--backward-other-window)
  1120 (global-set-key [?\C-x up] #'my--backward-other-window)
  1121 (global-set-key [?\C-x down] #'other-window)
  1121 (global-set-key [?\C-x down] #'other-window)
  1122 (global-set-key [s-up] #'my--backward-other-window)
  1122 (global-set-key [s-up] #'my--backward-other-window)
  1123 (global-set-key [s-down] #'other-window)
  1123 (global-set-key [s-down] #'other-window)
       
  1124 
  1124 (defun my--erase-buffer ()
  1125 (defun my--erase-buffer ()
  1125   (interactive)
  1126   (interactive)
       
  1127   (advice-add #'ask-user-about-supersession-threat :override #'identity)
  1126   (erase-buffer)
  1128   (erase-buffer)
  1127   (when (buffer-file-name)
  1129   (when (buffer-file-name)
  1128     (basic-save-buffer)))
  1130     (basic-save-buffer-1)
       
  1131     (revert-buffer))
       
  1132   (advice-remove #'ask-user-about-supersession-threat #'identity))
  1129 (global-set-key [s-backspace] #'my--erase-buffer)
  1133 (global-set-key [s-backspace] #'my--erase-buffer)
  1130 
  1134 
  1131 (require 'uniquify)
  1135 (require 'uniquify)
  1132 (setq uniquify-buffer-name-style 'post-forward)
  1136 (setq uniquify-buffer-name-style 'post-forward)
  1133 (setq uniquify-separator "|")
  1137 (setq uniquify-separator "|")