[elpa] externals/ergoemacs-mode 82cba16 070/325: Remove shift selection

[Stefan Monnier]

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

    Remove shift selection
---
 ergoemacs-advice.el       |  6 ------
 ergoemacs-command-loop.el | 13 -------------
 2 files changed, 19 deletions(-)

diff --git a/ergoemacs-advice.el b/ergoemacs-advice.el
index 7cfd3ad..b78091c 100644
--- a/ergoemacs-advice.el
+++ b/ergoemacs-advice.el
@@ -358,12 +358,6 @@ TYPE is the type of translation installed."
       ad-do-it
     (ergoemacs-mode--undefined-advice)))
 
-(ergoemacs-advice handle-shift-selection ()
-  "Allow `ergoemacs-mode' to do shift selection on keys like Alt+# to Alt+3."
-  :type :before
-  (when (eq 'ergoemacs-command-loop--shift-translate (key-binding 
(this-single-command-keys)))
-    (setq this-command-keys-shift-translated t)))
-
 (provide 'ergoemacs-advice)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ergoemacs-advice.el ends here
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 2fa24be..2ab7e28 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -2039,17 +2039,6 @@ pressed the translated key by changing
               (throw 'found-command ret))))))
     ret)))
 
-(defun ergoemacs-command-loop--execute-handle-shift-selection (function)
-  "Allow `ergoemacs-mode' command loop to handle shift selection.
-
-This will apply `handle-shift-selection' when FUNCTION is
-considered a shift-selection compatible function.
-
-This allows shift-selection of non-letter keys.
-For instance in QWERTY M-> is shift translated to M-."
-  (when (ergoemacs :movement-p function)
-    (handle-shift-selection)))
-
 (defun ergoemacs-command-loop--execute-rm-keyfreq (command)
   "Remove COMMAND from `keyfreq-mode' counts."
   (when (featurep 'keyfreq)
@@ -2107,8 +2096,6 @@ For instance in QWERTY M-> is shift translated to M-."
 
          (ergoemacs-command-loop--execute-modify-command-list command)
           
-          ;; Handle Shift Selection
-          (ergoemacs-command-loop--execute-handle-shift-selection this-command)
           (when keys
             (setq ergoemacs-command-loop--single-command-keys keys)