(defun previous-buffer () "Select previous window." (interactive) (bury-buffer)) (defun backward-buffer () "Select backward window." (interactive) (switch-to-buffer (car (reverse (buffer-list))))) (global-set-key "\C-t" 'previous-buffer) (global-set-key "\M-\C-t" 'backward-buffer)
previous-buffer と backward-buffer は emacs-21.4 からは標準で提供されるらしい.たしかに,何で今まで無かったのか不思議なくらい便利.