emacs のどうでもいいハナシ

ESHELL でも sql-db でも、C-c C-e とすると、最後のプロンプトの位置に移動してそのカーソル位置をウィンドウの最下部になるという機能がある。

コレ僕はかなりよく使う。
他でも使いたいなぁと思ってこんなの入れてみる。

(global-set-key "\C-c\C-e" '(lambda () (interactive) (recenter -1)))

使えない‥ 特に行数が少ないものであったり、最初の行辺りでは。
なぜかといえば、

(global-set-key "\el" '(lambda () "カーソル位置をトップ" (interactive) (recenter 0)))

こちらと比べてみれば分かる。
そもそもプロンプトじゃないものでこれができてもねぇ。削除。

;; 次のウィンドウと入れ替え - つくりかけ
(defun ma:exchange-windows ()
  (interactive)
  (save-excursion
	(setq buf1 (buffer-name)) ;current buf-win
	(other-window 1)
	(setq buf2 (buffer-name)) ;other buf-win
	(switch-to-buffer buf1)
	(other-window -1)
	(switch-to-buffer buf2)
	(other-window 1)))
(define-key my-key-map "0" 'ma:exchange-windows)

split-window しているときにウィンドウを入れ替える。
タブンもっとスマートな書き方があるのだと思うので、(つくりかけ) となっている・・・

追記2: (08.01.21(mon)-11:22)
ちょとヒドいので修正。グローバルスコープを汚すなと・・・

(defun ma:exchange-windows ()
  (interactive)
  (let (buf1 buf2)
	(save-excursion
	  (setq buf1 (buffer-name)) ;current buf-win
	  (other-window 1)
	  (setq buf2 (buffer-name)) ;other buf-win
	  (switch-to-buffer buf1)
	  (other-window -1)
	  (switch-to-buffer buf2)
	  (other-window 1))))