diff options
| author | Stefan Kangas | 2025-03-12 09:15:53 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-03-13 06:07:25 +0100 |
| commit | 99d034cfd3fd807570b14a56413fc61e2c964c65 (patch) | |
| tree | 72e47a185a38caa59e5bc21345862ba5a42bc7d0 | |
| parent | 13a043fec95f9f6b9721b3c6ff0a3248b14d40cc (diff) | |
| download | emacs-99d034cfd3fd807570b14a56413fc61e2c964c65.tar.gz emacs-99d034cfd3fd807570b14a56413fc61e2c964c65.zip | |
; Fix mistake in defvar-keymap conversion
A mix of `keymap-set` and `define-key` confused the automated
conversion. Problem reported by Juri Linkov <juri@linkov.net>.
| -rw-r--r-- | lisp/outline.el | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 0e5aff724aa..1a1c8705ee2 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -74,30 +74,30 @@ appropriately. When the argument LOOKING-AT is non-nil, it should | |||
| 74 | imitate the function `looking-at'.") | 74 | imitate the function `looking-at'.") |
| 75 | 75 | ||
| 76 | (defvar-keymap outline-mode-prefix-map | 76 | (defvar-keymap outline-mode-prefix-map |
| 77 | "@" #'outline-mark-subtree | 77 | "@" #'outline-mark-subtree |
| 78 | "C-n" #'outline-next-visible-heading | 78 | "C-n" #'outline-next-visible-heading |
| 79 | "C-p" #'outline-previous-visible-heading | 79 | "C-p" #'outline-previous-visible-heading |
| 80 | "C-i" #'outline-show-children | 80 | "C-i" #'outline-show-children |
| 81 | "C-s" #'outline-show-subtree | 81 | "C-s" #'outline-show-subtree |
| 82 | "C-d" #'outline-hide-subtree | 82 | "C-d" #'outline-hide-subtree |
| 83 | "C-u" #'outline-up-heading | 83 | "C-u" #'outline-up-heading |
| 84 | "C-f" #'outline-forward-same-level | 84 | "C-f" #'outline-forward-same-level |
| 85 | "C-b" #'outline-backward-same-level | 85 | "C-b" #'outline-backward-same-level |
| 86 | "C-t" #'outline-hide-body | 86 | "C-t" #'outline-hide-body |
| 87 | "C-a" #'outline-show-all | 87 | "C-a" #'outline-show-all |
| 88 | "C-c" #'outline-hide-entry | 88 | "C-c" #'outline-hide-entry |
| 89 | "C-e" #'outline-show-entry | 89 | "C-e" #'outline-show-entry |
| 90 | "C-l" #'outline-hide-leaves | 90 | "C-l" #'outline-hide-leaves |
| 91 | "C-k" #'outline-show-branches | 91 | "C-k" #'outline-show-branches |
| 92 | "C-q" #'outline-hide-sublevels | 92 | "C-q" #'outline-hide-sublevels |
| 93 | "C-o" #'outline-hide-other | 93 | "C-o" #'outline-hide-other |
| 94 | "C-^" #'outline-move-subtree-up | 94 | "C-^" #'outline-move-subtree-up |
| 95 | "C-v" #'outline-move-subtree-down | 95 | "C-v" #'outline-move-subtree-down |
| 96 | "/ SPC s" #'outline-show-by-heading-regexp | 96 | "/ s" #'outline-show-by-heading-regexp |
| 97 | "/ SPC h" #'outline-hide-by-heading-regexp | 97 | "/ h" #'outline-hide-by-heading-regexp |
| 98 | "C-<" #'outline-promote | 98 | "C-<" #'outline-promote |
| 99 | "C->" #'outline-demote | 99 | "C->" #'outline-demote |
| 100 | "RET" #'outline-insert-heading) | 100 | "RET" #'outline-insert-heading) |
| 101 | 101 | ||
| 102 | (defvar outline-mode-menu-bar-map | 102 | (defvar outline-mode-menu-bar-map |
| 103 | (let ((map (make-sparse-keymap))) | 103 | (let ((map (make-sparse-keymap))) |