equal
deleted
inserted
replaced
811 (message "selecting/switching, creating, killing buffers") |
811 (message "selecting/switching, creating, killing buffers") |
812 |
812 |
813 (global-set-key [?\C-x right] 'next-buffer) |
813 (global-set-key [?\C-x right] 'next-buffer) |
814 (global-set-key [?\C-x left] 'previous-buffer) |
814 (global-set-key [?\C-x left] 'previous-buffer) |
815 (global-set-key (kbd "C-x C-k") 'kill-this-buffer) |
815 (global-set-key (kbd "C-x C-k") 'kill-this-buffer) |
816 (global-set-key [?\C-x deletechar] 'kill-this-buffer) |
816 (defun my-kill-this-buffer-maybe-switch-to-next () |
|
817 "Kill current buffer. Switch to next buffer if previous command |
|
818 was switching to next buffer or this command itself allowing |
|
819 sequential closing of uninteresting buffers." |
|
820 (interactive) |
|
821 (let ( (cmd last-command) ) |
|
822 (kill-this-buffer) |
|
823 (when (memq cmd (list 'next-buffer this-command)) |
|
824 (next-buffer)))) |
|
825 (global-set-key [?\C-x deletechar] 'my-kill-this-buffer-maybe-switch-to-next) |
817 (global-set-key [?\C-x up] '(lambda () |
826 (global-set-key [?\C-x up] '(lambda () |
818 (interactive) |
827 (interactive) |
819 (other-window -1))) |
828 (other-window -1))) |
820 (global-set-key [?\C-x down] 'other-window) |
829 (global-set-key [?\C-x down] 'other-window) |
821 |
830 |