在Emacs键映射值中显示键_Emacs_Elisp

在Emacs键映射值中显示键

emacs

在Emacs键映射值中显示键,emacs,elisp,Emacs,Elisp,当我查询keymap的当前值时，例如使用M-：（当前本地映射），它会显示以下内容： Value: (keymap (S-mouse-2 . muse-follow-name-at-mouse-other-window) (mouse-2 . muse-follow-name-at-mouse) (33554445 . muse-follow-name-at-point-other-window) (S-return . muse-follow-name-at-point-other-w

当我查询keymap的当前值时，例如使用

M-：（当前本地映射）

，它会显示以下内容：

Value: 
(keymap
 (S-mouse-2 . muse-follow-name-at-mouse-other-window)
 (mouse-2 . muse-follow-name-at-mouse)
 (33554445 . muse-follow-name-at-point-other-window)
 (S-return . muse-follow-name-at-point-other-window)
 (13 . muse-follow-name-at-point)
 (return . muse-follow-name-at-point)
 keymap
 (67108924 . muse-decrease-list-item-indentation)
 (67108926 . muse-increase-list-item-indentation)
 (M-return . muse-insert-list-item)
 (33554441 . muse-previous-reference)
 (S-iso-lefttab . muse-previous-reference)
 (S-tab . muse-previous-reference)
 (S-mouse-2 . muse-follow-name-at-mouse-other-window)
 (mouse-2 . muse-follow-name-at-mouse)
 (33554445 . muse-follow-name-at-point-other-window)
 (9 . muse-next-reference)
 (tab . muse-next-reference)
 (3 keymap
    (19 . muse-search)
    (2 . muse-find-backlinks)
    (tab . muse-insert-thing)
    (9 . muse-insert-thing)
    (16 . muse-project-publish)
    (6 . muse-project-find-file)
    (61 . muse-what-changed)
    (22 . muse-browse-result)
    (27 keymap
        (20 . muse-publish-this-file))
    (33554452 . muse-publish-this-file)
    (20 . muse-project-publish-this-file)
    (12 . font-lock-mode)
    (5 . muse-edit-link-at-point)
    (1 . muse-index))
 keymap
 (27 keymap
     (9 . ispell-complete-word)))

我希望看到一些更有意义的东西，比如

（control？c）return

，而不是数字。我该怎么做

您知道命令
```
C-hm
```
（
```
descripe mode
```
）吗？该命令通常显示当前主要和次要模式的描述，通常带有它们的键图

（替换命令键“\\{foo-map}”）

是

描述模式

内部用于生成keymap

foo-map

的用户友好描述

如果您希望更接近keymap结构，那么该API将在Emacs Lisp手册中的“事件分类”中进行说明。例如，
```
（事件修饰符33554445）
```
==>
```
（换档控制）
```
```
（格式“%c”（事件基本类型33554445））
```
==>
```
“m”
```

(defun describe-keymap (keymap &optional prefix)
  (pop-to-buffer "Keymap description")
  (erase-buffer)
  (describe-keymap-impl keymap prefix))

(defun describe-keymap-impl (keymap &optional prefix)
  "show a description of keymap"
  (let (keymaps-to-process)
    (mapc (lambda (partofkeymap)
            (when prefix
              (insert (concat prefix " ")))
            (insert (key-description (list partofkeymap)))
            (insert "                ")
            (cond ((atom partofkeymap))
                  ((listp (cdr partofkeymap))
                   (insert "prefix-key")
                   (if (eq 'keymap (cadr partofkeymap))
                       (setq keymaps-to-process (cons partofkeymap keymaps-to-process))))
                  (t 
                   (insert (symbol-name (cdr partofkeymap)))))
            (insert "\n"))
          (if (and (symbolp keymap) (boundp keymap))
              (symbol-value keymap)
            keymap))
    (while keymaps-to-process
      (insert "\n\n")
      (describe-keymap-impl (cddar keymaps-to-process) (concat prefix (key-description (list (caar keymaps-to-process)))))
      (setq keymaps-to-process (cdr keymaps-to-process))))
  nil)

(describe-keymap emacs-lisp-mode-map)
(describe-keymap 'emacs-lisp-mode-map)

帮助fns+.el

descripe keymap