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