Lightning bug
いわゆるIT戦士になりそうな学生のブログ
プロフィール

FromAtom

Author:FromAtom
 
某高専卒の情報系です。
ITバブルの波に乗り遅れ、
不況の波に攫われそうです。
そんな男のブログ。うん。



詳細プロフィール

詳しいプロフィールはこちらから



最新記事



最新コメント



最新トラックバック



月別アーカイブ



カテゴリ



訪問者数



検索フォーム



RSSリンクの表示



リンク

このブログをリンクに追加する



ブロとも申請フォーム

この人とブロともになる



QRコード

QRコード



スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


【備忘録】カーソルキーでバッファを切り替える方法【Emacs】
きいろ


個人的備忘録。

NTEmacs(Emacs)において、カーソルキーでバッファを切り替える
キーバインドを追加するlispコードです。

C-x →:次のバッファに移動
C-x ←:前のバッファに移動

これだと、コントロールキーから指を離すのがめんどくさかったりするので

C-x C-→:次のバッファに移動
C-x C-←:前のバッファに移動

こっちのキーバインドも実装。

最近のEmacsやMeadowだとデフォルトでこの機能があったりするのですが
無い場合には書かないといけないのですよ。たぶん。

ソースコードの下4行分が上記のキーバインド設定なので、
そこをいじれば好きなキーバインドでくるくるバッファ。


てなわけで、以下ソースコード

;;---------------
;キー操作でBufferを切り替え
(defun my-select-visible (blst n)
(let ((buf (nth n blst)))
(cond ((= n (- (length blst) 1)) (other-buffer))
((not (= (aref (buffer-name buf) 0) ? )) buf)
(t (my-select-visible blst (+ n 1))))))
(defun my-grub-buffer ()
(interactive)
(switch-to-buffer (my-select-visible
(reverse (cdr (assq 'buffer-list (frame-parameters)))) 0)))
(global-set-key [?\C-x right] 'my-grub-buffer)
(global-set-key [?\C-x left] 'bury-buffer)
(global-set-key [?\C-x \C-right] 'my-grub-buffer)
(global-set-key [?\C-x \C-left] 'bury-buffer)
;;-----------------






コメント

コメントの投稿














管理者にだけ表示を許可する


トラックバック
この記事にトラックバックする(FC2ブログユーザー)
トラックバック URL
http://bossme.blog54.fc2.com/tb.php/196-0ca65ae0



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。