equal
deleted
inserted
replaced
862 "Kill current buffer. Switch to next buffer if previous command |
862 "Kill current buffer. Switch to next buffer if previous command |
863 was switching to next buffer or this command itself allowing |
863 was switching to next buffer or this command itself allowing |
864 sequential closing of uninteresting buffers." |
864 sequential closing of uninteresting buffers." |
865 (interactive) |
865 (interactive) |
866 (let ( (cmd last-command) ) |
866 (let ( (cmd last-command) ) |
867 (kill-this-buffer) |
867 (kill-buffer (current-buffer)) |
868 (when (memq cmd (list 'next-buffer this-command)) |
868 (when (memq cmd (list 'next-buffer this-command)) |
869 (next-buffer)))) |
869 (next-buffer)))) |
870 (global-set-key [?\C-x deletechar] 'my-kill-this-buffer-maybe-switch-to-next) |
870 (global-set-key [?\C-x deletechar] 'my-kill-this-buffer-maybe-switch-to-next) |
871 (global-set-key [?\C-x up] '(lambda () |
871 (global-set-key [?\C-x up] '(lambda () |
872 (interactive) |
872 (interactive) |