emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dape de1508f4b3 037/123: Change to old style of keymap


From: ELPA Syncer
Subject: [elpa] externals/dape de1508f4b3 037/123: Change to old style of keymap define with defvar
Date: Tue, 5 Dec 2023 03:57:59 -0500 (EST)

branch: externals/dape
commit de1508f4b352e0a3e04caf2bda5de1148ed7c59c
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Change to old style of keymap define with defvar
---
 dape.el | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/dape.el b/dape.el
index 3b2710421d..0375b79b86 100644
--- a/dape.el
+++ b/dape.el
@@ -2399,25 +2399,26 @@ See `eldoc-documentation-functions', for more 
infomation."
 
 ;;; Keymaps
 
-;; FIXME checkout Compat or other ways to lower required emacs version
-(defvar-keymap dape-global-map
-  :doc "Keymap to repeat Dape commands.  Used in `repeat-mode'."
-  "d" #'dape
-  "p" #'dape-pause
-  "c" #'dape-continue
-  "n" #'dape-next
-  "s" #'dape-step-in
-  "o" #'dape-step-out
-  "r" #'dape-restart
-  "i" #'dape-info
-  "R" #'dape-repl
-  "m" #'dape-read-memory
-  "l" #'dape-log-breakpoint
-  "e" #'dape-expression-breakpoint
-  "b" #'dape-toggle-breakpoint
-  "B" #'dape-remove-all-breakpoints
-  "w" #'dape-watch-dwim
-  "q" #'dape-quit)
+(defvar dape-global-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "d" #'dape)
+    (define-key map "d" #'dape)
+    (define-key map "p" #'dape-pause)
+    (define-key map "c" #'dape-continue)
+    (define-key map "n" #'dape-next)
+    (define-key map "s" #'dape-step-in)
+    (define-key map "o" #'dape-step-out)
+    (define-key map "r" #'dape-restart)
+    (define-key map "i" #'dape-info)
+    (define-key map "R" #'dape-repl)
+    (define-key map "m" #'dape-read-memory)
+    (define-key map "l" #'dape-log-breakpoint)
+    (define-key map "e" #'dape-expression-breakpoint)
+    (define-key map "b" #'dape-toggle-breakpoint)
+    (define-key map "B" #'dape-remove-all-breakpoints)
+    (define-key map "w" #'dape-watch-dwim)
+    (define-key map "q" #'dape-quit)
+    map))
 
 (dolist (cmd '(dape-pause
                dape-continue



reply via email to

[Prev in Thread] Current Thread [Next in Thread]