[elpa] externals/ergoemacs-mode dd8796f 075/325: Remove unused shift translation code

[Stefan Monnier]

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

    Remove unused shift translation code
---
 ergoemacs-command-loop.el | 19 +------------------
 ergoemacs-mode.el         |  6 ------
 2 files changed, 1 insertion(+), 24 deletions(-)

diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 4e91b05..faba8ee 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -173,7 +173,6 @@ ignore the post-command hooks.")
 (defvar ergoemacs-command-loop-time-before-blink)
 (defvar ergoemacs-command-loop-blink-character)
 (defvar ergoemacs-command-loop-blink-rate)
-(defvar ergoemacs-command-loop-hide-shift-translations)
 (defvar ergoemacs-mode)
 (defvar ergoemacs-command-loop-type)
 (defvar ergoemacs-keymap)
@@ -787,8 +786,7 @@ read."
       ;; Don't echo the uncommon hyper/super/alt translations (alt is
       ;; not the alt key...)
       (dolist (tr trans)
-        (unless (or (memq 'hyper (nth 0  tr)) (memq 'super (nth 0 tr)) (memq 
'alt (nth 0 tr))
-                    (and ergoemacs-command-loop-hide-shift-translations (memq 
'shift (nth 0  tr))))
+        (unless (or (memq 'hyper (nth 0  tr)) (memq 'super (nth 0 tr)) (memq 
'alt (nth 0 tr)))
           (if (member (list (nth 1 tr) (nth 0 tr)) trans)
               (when (not (member (list (nth 1 tr) (nth 0 tr)) double))
                 (push tr double))
@@ -2091,22 +2089,7 @@ pressed the translated key by changing
             (setq ergoemacs-command-loop--single-command-keys nil)))))
     ;; (ergoemacs-command-loop--spinner-end)
     ))
-(defun ergoemacs-command-loop--shift-timeout ()
-  "This is the shift-timeout function for a key."
-  (interactive)
-  (let ((shift-trans (ergoemacs-translate--emacs-shift 
(this-single-command-keys))))
-    (setq ergoemacs-this-command-keys-shift-translated t)
-    (ergoemacs-command-loop--internal shift-trans)))
 
-(defun ergoemacs-command-loop--shift-translate ()
-  "Shift translation."
-  (interactive)
-  (let ((shift-trans (ergoemacs-translate--emacs-shift 
(this-single-command-keys) 'ergoemacs-shift)))
-    (message "%s->%s" (key-description (this-single-command-keys))
-            (key-description shift-trans))
-    (setq ergoemacs-this-command-keys-shift-translated t
-         this-command-keys-shift-translated t)
-    (ergoemacs-command-loop--call-interactively (key-binding shift-trans))))
 (provide 'ergoemacs-command-loop)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ergoemacs-command-loop.el ends here
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index ea98246..76534a8 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -941,12 +941,6 @@ Valid values are:
           (const :tag "No command loop support" nil))
   :group 'ergoemacs-comamnd-loop)
 
-(defcustom ergoemacs-command-loop-hide-shift-translations t
-  "Hide shift translations in the command loop help."
-  :type 'boolean
-  :group 'ergoemacs-command-loop)
-
-
 (defcustom ergoemacs-command-loop-echo-keystrokes 1
   "The amount of time before `ergoemacs-mode' displays keystrokes."
   :type 'number