[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1f08f22: Revert "* admin/gitmerge.el (gitmerge-mode-map): Convert
From: |
Stefan Kangas |
Subject: |
master 1f08f22: Revert "* admin/gitmerge.el (gitmerge-mode-map): Convert to defvar-keymap." |
Date: |
Sun, 21 Nov 2021 04:10:54 -0500 (EST) |
branch: master
commit 1f08f2258beb16d20851f2d4cb85b94840b45ed4
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Revert "* admin/gitmerge.el (gitmerge-mode-map): Convert to defvar-keymap."
This reverts commit 4c467e4aff12e65fa4fa62d7f4bdcbf4a2bcd92c.
---
admin/gitmerge.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index 5aae6b4..67fca87 100644
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -96,13 +96,16 @@ If nil, the function `gitmerge-default-branch' guesses.")
(defvar gitmerge-log-regexp
"^\\([A-Z ]\\)\\s-*\\([0-9a-f]+\\) \\(.+?\\): \\(.*\\)$")
-(defvar-keymap gitmerge-mode-map
- :doc "Keymap for gitmerge major mode."
- "l" #'gitmerge-show-log
- "d" #'gitmerge-show-diff
- "f" #'gitmerge-show-files
- "s" #'gitmerge-toggle-skip
- "m" #'gitmerge-start-merge)
+(defvar gitmerge-mode-map
+ (let ((map (make-keymap)))
+ (define-key map [(l)] 'gitmerge-show-log)
+ (define-key map [(d)] 'gitmerge-show-diff)
+ (define-key map [(f)] 'gitmerge-show-files)
+ (define-key map [(s)] 'gitmerge-toggle-skip)
+ (define-key map [(m)] 'gitmerge-start-merge)
+ map)
+ "Keymap for gitmerge major mode.")
+
(defvar gitmerge-mode-font-lock-keywords
`((,gitmerge-log-regexp
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1f08f22: Revert "* admin/gitmerge.el (gitmerge-mode-map): Convert to defvar-keymap.",
Stefan Kangas <=