[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode 46f027f 042/325: More modal removal
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode 46f027f 042/325: More modal removal |
Date: |
Sat, 23 Oct 2021 18:48:17 -0400 (EDT) |
branch: externals/ergoemacs-mode
commit 46f027ff3d7646f619b1538f173919eca2518fe2
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>
More modal removal
---
ergoemacs-macros.el | 2 --
ergoemacs-translate.el | 20 +++++---------------
2 files changed, 5 insertions(+), 17 deletions(-)
diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index 8ddf345..9bea54e 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -706,8 +706,6 @@ When arg1 can be a property. The following properties are
supported:
`(ergoemacs-map-properties--before-ergoemacs))
((and arg1 (symbolp arg1) (eq arg1 :user-after) (not arg2) (not arg3))
`(ergoemacs-map-properties--before-ergoemacs t))
- ((and arg1 (symbolp arg1) (eq arg1 :modal-p))
- nil)
((and arg1 (symbolp arg1) (eq arg1 :combine) arg2 arg3)
`(ergoemacs-command-loop--combine ,arg2 ,arg3))
((and arg1 (symbolp arg1) (memq arg1 '(:unicode-or-alt :unicode)))
diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index 554123f..09281d2 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -703,7 +703,6 @@ For keys, the list consists of:
(universal-argument nil)
(negative-argument nil)
(digit-argument nil)
- (modal nil)
(text "")
(keymap (make-sparse-keymap))
(keymap-modal (make-sparse-keymap))
@@ -942,25 +941,16 @@ If there are no gui elements, retun nil."
;; (add-hook 'ergoemacs-mode-intialize-hook
#'ergoemacs-translate--keymap-reset)
(defun ergoemacs-translate--keymap (&optional translation)
- "Get the keymap for TRANSLATION.
-This takes into consideration the modal state of `ergoemacs-mode'."
- (let* ((modal nil)
- (translation (or (and (ergoemacs-translation-struct-p translation)
- (or (not modal) ;; prefer modal when :normal
- (not (eq :normal
(ergoemacs-translation-struct-key translation))))
+ "Get the keymap for TRANSLATION."
+ (let* ((translation (or (and (ergoemacs-translation-struct-p translation)
translation)
- modal
(ergoemacs-translate--get (or translation :normal))))
- (key (or (and modal (intern (concat ":"
(ergoemacs-translation-struct-name translation) "-modal")))
- (ergoemacs-translation-struct-key translation)))
+ (key (ergoemacs-translation-struct-key translation))
(ret (ergoemacs-gethash key ergoemacs-translate--keymap-hash))
keymap)
(unless ret
- (if modal
- (setq keymap (ergoemacs-translation-struct-keymap-modal translation)
- ret keymap)
- (setq keymap (ergoemacs-translation-struct-keymap translation)
- ret (make-composed-keymap (ergoemacs keymap) (ergoemacs
ergoemacs-translate--parent-map))))
+ (setq keymap (ergoemacs-translation-struct-keymap translation)
+ ret (make-composed-keymap (ergoemacs keymap) (ergoemacs
ergoemacs-translate--parent-map)))
(puthash key ret ergoemacs-translate--keymap-hash))
ret))
- [elpa] externals/ergoemacs-mode 5a1ec10 111/325: Fix some warnings, (continued)
- [elpa] externals/ergoemacs-mode 5a1ec10 111/325: Fix some warnings, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode bb77fa2 131/325: Replace ergoemacs-print-buffer-confirm with pr-interface everywhere, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 4f43e90 001/325: Add a whole bunch of keybindings, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f58f7d8 008/325: Replace all cl with cl-lib, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 89b618b 004/325: Merge branch 'master' into ergoterm, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 21cab2a 006/325: Merge branch 'master' into ergoterm, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 57bbe7d 005/325: Revert "Remove shift translation, instead directly binding those keys", Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode fccae9b 029/325: Remove ensure functions, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 45a2ec3 034/325: Remove unused 'require, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3c793e3 035/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 46f027f 042/325: More modal removal,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode d297724 045/325: Remove ergoemacs-command-loop--modal and ergoemacs-command-loop--modal-show, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 71e949b 063/325: Remove dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 3729fbd 055/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 49360a1 017/325: Remove ergoemacs-redo since it only exists to download undo-tree, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e9ec38d 011/325: Remove dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b20b8ae 033/325: Remove :mode and unused macro properties, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5fbcf0c 048/325: Remove unchorded stuff and related tests, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode c53e573 056/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5b285ea 057/325: Run everything immediately, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b16e51c 068/325: Remove unused diminish functions, Stefan Monnier, 2021/10/23