branch: externals/ergoemacs-mode
commit 36901359392b16f4edb75e2e8f971e58e60655ca
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove more shift translation
---
ergoemacs-command-loop.el | 8 +-------
ergoemacs-component.el | 8 --------
2 files changed, 1 insertion(+), 15 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index f32bc40..959e4b4 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -1974,8 +1974,7 @@ pressed the translated key by changing
;; Make sure to lookup the keys in the selected buffer
(ergoemacs-command-loop--sync-point)
(let ((trials (ergoemacs-translate--trials key))
- tmp ret)
- (setq this-command-keys-shift-translated nil)
+ tmp ret)
(catch 'found-command
(dolist (cur-key trials)
(when cur-key
@@ -2020,11 +2019,6 @@ pressed the translated key by changing
((equal orig-key (nth 0 trials))
(setq ergoemacs-command-loop--single-command-keys new-key)
(ergoemacs-command-loop--message-binding new-key ret))
- ((equal orig-key (nth 1 trials)) ;; `ergoemacs-mode' shift
translation
- (setq this-command-keys-shift-translated t
- ergoemacs-command-loop--single-command-keys (nth 0
trials))
-
- (ergoemacs-command-loop--message-binding new-key ret key))
(t
(ergoemacs-command-loop--message-binding new-key ret key)
(setq ergoemacs-command-loop--single-command-keys new-key)))
diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index aa253bd..5dbfd80 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -369,14 +369,6 @@ Allows the component not to be calculated."
(setq tmp (lookup-key global-map (read-kbd-macro (nth 0 def))))
(commandp tmp))
tmp)
- ((and (consp def)
- (= 2 (length def))
- (stringp (nth 0 def))
- (or (not (nth 1 def))
- (ergoemacs-gethash (nth 1 def) ergoemacs-translation-hash)))
- `(lambda(&optional arg)
- (interactive "P")
- (ergoemacs-command-loop ,(nth 0 def) ',(nth 1 def))))
((ergoemacs-keymapp (ergoemacs-sv def))
(ergoemacs-sv def))
(t def))))
