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