[elpa] externals/ergoemacs-mode 1a67e04 074/325: Remove shift translation

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 1a67e04717788e3ac30a1010f3ad261908825708
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove shift translation
---
 ergoemacs-translate.el | 40 +---------------------------------------
 1 file changed, 1 insertion(+), 39 deletions(-)

diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index 09281d2..de4e8c1 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -230,43 +230,6 @@ If no changes are performed, return nil."
         (setq ret new-key))
       ret)))
 
-(defun ergoemacs-translate--ergoemacs-shift-select (key)
-  "Translate KEY to allow `ergoemacs-mode' shift translation.
-
-This will shift translate Alt+# to Alt+3."
-  (let (modifiers basic)
-    (when (and (vectorp key)
-               ;; only makes sense for single key combinations.
-               (= (length key) 1)
-               ;; Doesn't make sense if shifted...
-               (not (or (memq 'shift (setq modifiers 
(ergoemacs-translate--event-modifiers (aref key 0))))
-                        (memq 'ergoemacs-shift modifiers)))
-              ;; Only define if emacs doesn't handle shift selection.
-              (not (eq (event-convert-list (list 'shift (setq basic 
(event-basic-type (aref key 0)))))
-                       (ergoemacs-translate--event-convert-list (list 
'ergoemacs-shift basic)))))
-      (setq ergoemacs-translate--define-key-if-defined-p nil
-            ergoemacs-translate--define-key-replacement-function 
'ergoemacs-command-loop--shift-translate)
-      (vector (ergoemacs-translate--event-convert-list (append modifiers (list 
'ergoemacs-shift basic)))))))
-
-(defun ergoemacs-translate--ergoemacs-timeout (key)
-  "Translates KEY to allow Shift translation to default to key sequence.
-
-This is done for key sequences like Ctrl+Shift+c which should
-allow the Ctrl+c key sequence to be called when text is
-seleceted (instead of copying the text)."
-  (let (modifiers basic)
-    (when (and (vectorp key)
-              ;; only makes sense for single key combinations.
-              (= (length key) 2)
-              (eq 'ergoemacs-timeout (aref key 1))
-              ;; Doesn't make sense if shifted...
-              (not (or (memq 'shift (setq modifiers 
(ergoemacs-translate--event-modifiers (aref key 0))))
-                       (memq 'ergoemacs-shift modifiers))))
-      (setq basic (ergoemacs-translate--event-basic-type (aref key 0))
-           ergoemacs-translate--define-key-if-defined-p nil
-            ergoemacs-translate--define-key-replacement-function 
'ergoemacs-command-loop--shift-timeout)
-      (vector (ergoemacs-translate--event-convert-list (append modifiers (list 
'shift basic)))))))
-
 (defun ergoemacs-translate--to-string (key)
   "Translates KEY to string format.
 
@@ -286,8 +249,7 @@ If no chanegs are performed, return nil."
     ergoemacs-translate--swap-menu
     ergoemacs-translate--to-string
     ergoemacs-translate--to-vector
-    ergoemacs-translate--ergoemacs-timeout
-    ergoemacs-translate--ergoemacs-shift-select)
+    )
   "Functions to apply to key.
 
 These functions take a key as an argument and translate it in