# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1397206969 -10800
# Node ID b6dcbd7478845ca4fd9bbbeefff9035f37f4e1c6
# Parent  d91fa7f7033a0723d604595d376fe36616bfd879
Kill current buffer. Switch to next buffer if previous command was switching
to next buffer or this command itself allowing sequential closing of
uninteresting buffers."

diff -r d91fa7f7033a -r b6dcbd747884 .emacs-my
--- a/.emacs-my	Thu Apr 10 18:14:08 2014 +0300
+++ b/.emacs-my	Fri Apr 11 12:02:49 2014 +0300
@@ -813,7 +813,16 @@
 (global-set-key [?\C-x right] 'next-buffer)
 (global-set-key [?\C-x left]  'previous-buffer)
 (global-set-key (kbd "C-x C-k") 'kill-this-buffer)
-(global-set-key [?\C-x deletechar] 'kill-this-buffer)
+(defun my-kill-this-buffer-maybe-switch-to-next ()
+  "Kill current buffer. Switch to next buffer if previous command
+was switching to next buffer or this command itself allowing
+sequential closing of uninteresting buffers."
+  (interactive)
+  (let ( (cmd last-command) )
+    (kill-this-buffer)
+    (when (memq cmd (list 'next-buffer this-command))
+      (next-buffer))))
+(global-set-key [?\C-x deletechar] 'my-kill-this-buffer-maybe-switch-to-next)
 (global-set-key [?\C-x up] '(lambda ()
                               (interactive)
                               (other-window -1)))