Emacs現在のローカルキーマップの名前？

Question

私は、現在のメジャーモードのキーマップで与えられたコマンドを永久にバインドするelisp関数を書いています。例えば、

(define-key python-mode-map [C-f1] 'python-describe-symbol) 

コマンドとキーシーケンスは、ユーザーからインタラクティブに収集されます。しかし、現在のメジャーモードに対応するKEYMAPの名前（例えば、「python-mode-map」）の作成に問題があります。

私は関数（current-local-map）を試しましたが、この関数はその名前ではなくキーマップオブジェクト自体を返します。

多くのメジャーモードのキーマップは、 'major-mode-name'-mode-map 'という規則に従って命名されていますが、必ずしもそうではありません（例えば、python-shell-map）。だから、私はこの規約に頼らないコードを使用したいと思っています。 （私は現在のメジャーモードの名前にアクセスする方法もわかりません）。動作するよう(define-key (current-local-map) key command)

が、それは、初期化ファイルにコードとして機能しないように

(define-key ...)は、initファイルに追加されます。

Answer 1

現在のローカルキーマップの名前、より正確には、値がバインドされているシンボルを見つける直接的な方法はありません。キーマップはシンボルにバインドする必要がないためです。しかし、モードキーマップは一般的にグローバルシンボルにバインドされており、キーマップオブジェクトに対して値がeqであるすべてのシンボルを反復して停止することによって、どのシンボルがどれであるかを見つけることができます。

これはすべてのシンボルを見る必要がありますが（各シンボルで最小限の作業はしますが）、特定の命名規則に頼らないという利点があります。

(defun keymap-symbol (keymap) 
    "Return the symbol to which KEYMAP is bound, or nil if no such symbol exists." 
    (catch 'gotit 
    (mapatoms (lambda (sym) 
       (and (boundp sym) 
        (eq (symbol-value sym) keymap) 
        (not (eq sym 'keymap)) 
        (throw 'gotit sym)))))) 


;; in *scratch*: 
(keymap-symbol (current-local-map)) 
==> lisp-interaction-mode-map 

Answer 2

たぶん、あなたは試みることができる：

(define-key (concat (symbol-name major-mode) "-map") [C-f1] 'python-describe-symbol)

編集：これは正しい文字列をもたらすであろうが、それはまだ、シンボルに変換する必要があります。

Answer 3

関数local-set-keyは、現在のローカルキーマップのキーを結合する目的のために存在します。