[elpa] externals/ergoemacs-mode 3690135 077/325: Remove more shift translation

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 36901359392b16f4edb75e2e8f971e58e60655ca
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@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))))