From fd1ba4f6ab7598f2775392c347194d99b438050f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 12 Mar 2025 09:15:53 +0100 Subject: [PATCH] ; Fix mistake in defvar-keymap conversion A mix of `keymap-set` and `define-key` confused the automated conversion. Problem reported by Juri Linkov . (cherry picked from commit 99d034cfd3fd807570b14a56413fc61e2c964c65) --- lisp/outline.el | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/lisp/outline.el b/lisp/outline.el index bebe498d76b..461a41d09e6 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -74,30 +74,30 @@ appropriately. When the argument LOOKING-AT is non-nil, it should imitate the function `looking-at'.") (defvar-keymap outline-mode-prefix-map - "@" #'outline-mark-subtree - "C-n" #'outline-next-visible-heading - "C-p" #'outline-previous-visible-heading - "C-i" #'outline-show-children - "C-s" #'outline-show-subtree - "C-d" #'outline-hide-subtree - "C-u" #'outline-up-heading - "C-f" #'outline-forward-same-level - "C-b" #'outline-backward-same-level - "C-t" #'outline-hide-body - "C-a" #'outline-show-all - "C-c" #'outline-hide-entry - "C-e" #'outline-show-entry - "C-l" #'outline-hide-leaves - "C-k" #'outline-show-branches - "C-q" #'outline-hide-sublevels - "C-o" #'outline-hide-other - "C-^" #'outline-move-subtree-up - "C-v" #'outline-move-subtree-down - "/ SPC s" #'outline-show-by-heading-regexp - "/ SPC h" #'outline-hide-by-heading-regexp - "C-<" #'outline-promote - "C->" #'outline-demote - "RET" #'outline-insert-heading) + "@" #'outline-mark-subtree + "C-n" #'outline-next-visible-heading + "C-p" #'outline-previous-visible-heading + "C-i" #'outline-show-children + "C-s" #'outline-show-subtree + "C-d" #'outline-hide-subtree + "C-u" #'outline-up-heading + "C-f" #'outline-forward-same-level + "C-b" #'outline-backward-same-level + "C-t" #'outline-hide-body + "C-a" #'outline-show-all + "C-c" #'outline-hide-entry + "C-e" #'outline-show-entry + "C-l" #'outline-hide-leaves + "C-k" #'outline-show-branches + "C-q" #'outline-hide-sublevels + "C-o" #'outline-hide-other + "C-^" #'outline-move-subtree-up + "C-v" #'outline-move-subtree-down + "/ s" #'outline-show-by-heading-regexp + "/ h" #'outline-hide-by-heading-regexp + "C-<" #'outline-promote + "C->" #'outline-demote + "RET" #'outline-insert-heading) (defvar outline-mode-menu-bar-map (let ((map (make-sparse-keymap))) -- 2.39.5