861 |
861 |
862 (global-set-key [?\C-x right] 'next-buffer) |
862 (global-set-key [?\C-x right] 'next-buffer) |
863 (global-set-key [?\C-x left] 'previous-buffer) |
863 (global-set-key [?\C-x left] 'previous-buffer) |
864 (global-set-key [s-right] 'next-buffer) |
864 (global-set-key [s-right] 'next-buffer) |
865 (global-set-key [s-left] 'previous-buffer) |
865 (global-set-key [s-left] 'previous-buffer) |
866 (global-set-key (kbd "C-x C-k") 'kill-this-buffer) |
866 (defun my--kill-this-buffer-maybe-switch-to-next () |
867 (defun my-kill-this-buffer-maybe-switch-to-next () |
|
868 "Kill current buffer. Switch to next buffer if previous command |
867 "Kill current buffer. Switch to next buffer if previous command |
869 was switching to next buffer or this command itself allowing |
868 was switching to next buffer or this command itself allowing |
870 sequential closing of uninteresting buffers." |
869 sequential closing of uninteresting buffers." |
871 (interactive) |
870 (interactive) |
872 (let ( (cmd last-command) ) |
871 (let ( (cmd last-command) ) |
873 (kill-buffer (current-buffer)) |
872 (kill-buffer (current-buffer)) |
874 (when (memq cmd (list 'next-buffer this-command)) |
873 (when (memq cmd (list 'next-buffer this-command)) |
875 (next-buffer)))) |
874 (next-buffer)))) |
876 (global-set-key [?\C-x deletechar] 'my-kill-this-buffer-maybe-switch-to-next) |
875 (global-set-key [?\C-x deletechar] 'my--kill-this-buffer-maybe-switch-to-next) |
|
876 (global-set-key [s-delete] 'my--kill-this-buffer-maybe-switch-to-next) |
877 (defun my--backward-other-window () |
877 (defun my--backward-other-window () |
878 (interactive) |
878 (interactive) |
879 (other-window -1)) |
879 (other-window -1)) |
880 (global-set-key [?\C-x up] #'my--backward-other-window) |
880 (global-set-key [?\C-x up] #'my--backward-other-window) |
881 (global-set-key [?\C-x down] #'other-window) |
881 (global-set-key [?\C-x down] #'other-window) |
890 (setq read-buffer-completion-ignore-case t) |
890 (setq read-buffer-completion-ignore-case t) |
891 (setq read-file-name-completion-ignore-case t) |
891 (setq read-file-name-completion-ignore-case t) |
892 |
892 |
893 ;; buffer-menu better then buffer-list, but ibuffer much better. |
893 ;; buffer-menu better then buffer-list, but ibuffer much better. |
894 (global-set-key "\C-x\C-b" 'ibuffer) |
894 (global-set-key "\C-x\C-b" 'ibuffer) |
|
895 (global-set-key [s-insert] 'ibuffer) |
895 |
896 |
896 (icomplete-mode 1) |
897 (icomplete-mode 1) |
897 (setq icomplete-with-completion-tables t) |
898 (setq icomplete-with-completion-tables t) |
898 |
899 |
899 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
900 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |