¿Nombre de Emacs del mapa de teclas local actual?

Estoy escribiendo una función elisp que enlaza permanentemente una clave dada a un comando dado en el mapa de teclas del modo principal actual. Por ejemplo,

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

El comando y la secuencia de teclas se recopilan interactivamente del usuario. Sin embargo, estoy teniendo problemas para producir el nombre de KEYMAP (por ejemplo, 'python-mode-map') que corresponde al modo principal actual.

He probado la función (current-local-map), pero esta función devuelve el objeto de mapa de teclado en sí, en lugar de su nombre.

Entiendo que muchos de los mapas de teclado de modo principal se nombran de acuerdo con la convención '' nombre de modo mayor'-modo-mapa ', sin embargo, este no es siempre el caso (por ejemplo, mapa de concha de pitón), así que preferiría Mi código no depende de esta convención. (Ni siquiera estoy seguro de cómo acceder al nombre del modo mayor actual).

los(define-key ...) se debe agregar a un archivo de inicio, por lo que aunque

(define-key (current-local-map) key command)

Parece funcionar, no funciona como código en un archivo de inicialización.

Respuestas a la pregunta(3)

Su respuesta a la pregunta