キー割り当て一覧

Intro

xyzzy 標準のキー割り当て一覧。

version 0.2.2.232 インストール直後の、なにもカスタマイズをしない状態での fundamental-mode から取得したキー割り当て一覧に、コメントをつけたもの。 標準でキーにバインドされてるコマンドぐらい覚えたいなとは思ってみたものの、 随分な量である。多くのコマンドの詳しい説明が、Emacs 関係のマニュアルに記述されているみたい。

Table of contents

• コメント付キー割り当て一覧
• いろいろ
  • キー割り当て一覧 をメッセージボックスで
  • popup-mode-memo をダイヤログボックスで開く (2003/09/06)

コメント付キー割り当て一覧

※このリストは，おーくぼさんの csv-mode を使って作成してあります。

いろいろ

キー割り当て一覧 をメッセージボックスで

最近良く使っているもの。特に，ローカルなキーバインディングがわからなくなったときなどに。

(defun describe-bindings-box ()
  (interactive)
  (let (str winconf)
    (setq winconf (current-window-configuration))
    (describe-bindings)
    (tabify (point-min) (point-max))
    (setq str (buffer-substring (point-min)
                                (point-max)))
    (delete-buffer "*Help*")
    (set-window-configuration winconf)
    (message-box str "キー割り当て一覧")))

popup-mode-memo をダイヤログボックスで開く

OHKUBO さんの popup-mode-memo をダイヤログボックスで開く。KaMail とかでもスクロールして見れたりします。

(defun popup-mode-memo-box ()
  (interactive)
  (let ((local (local-keymap))
        (minor (minor-mode-map))
        (shadow nil)
        (str ""))
    (when minor
      (setq str (concat str (format nil "Minor Mode Bindings:~%key~20Tbinding~%---~20T-------")))
      (mapc #'(lambda (x)
                (setq str (concat str (describe-bindings-1-string "" x shadow)))
                (push x shadow))
            minor))
    (setq str (concat str (format nil "Local Bindings:~%key~20Tbinding~%---~20T-------")))
    (setq str (concat str (describe-bindings-1-string "" local shadow)))
    (push local shadow)
    (message-box str "キー割り当て一覧")))

はじめはこんなのを作ってみたけれど，OHKUBO さんのを使った方が綺麗と思います。

(defun local-bindings-box ()
  (interactive)
  (let ((local (local-keymap))
        (minor (minor-mode-map))
        (shadow nil)
        (bn "*Help*")
        winconf str)
    (setq winconf (current-window-configuration))
    (with-output-to-temp-buffer (bn)
      (when minor
        (format t "Minor Mode Bindings:~%key~20Tbinding~%---~20T-------")
        (mapc #'(lambda (x)
                  (ed::describe-bindings-1 "" x shadow)
                  (push x shadow))
              minor))
      (format t "Local Bindings:~%key~20Tbinding~%---~20T-------")
      (ed::describe-bindings-1 "" local shadow)
      (push local shadow))
    (tabify (point-min) (point-max))
    (setq str (buffer-substring (point-min)
                                (point-max)))
    (delete-buffer bn)
    (set-window-configuration winconf)
    (message-box str "キー割り当て一覧")))

更新履歴

[2003/09/06]

・「popup-mode-memo をダイヤログボックスで開く」を追加した。

[2003/07/06]

・「キー割り当て一覧 をメッセージボックスで」を追加した。
・使わなさそうな tdict 用辞書を削除した。

[2003/01/18]

・いくらか変更した。