branch: externals/ergoemacs-mode
commit 2caaef6e2e84dbff06db9eec51878a167eb672bd
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove unused functions
---
ergoemacs-component.el | 15 ---------------
ergoemacs-map.el | 19 -------------------
2 files changed, 34 deletions(-)
diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index 02aeb5c..0590c7f 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -586,21 +586,6 @@ OBJ is the current object being modified, passed to
(ergoemacs-save-buffer-state
(set (make-local-variable (car elt)) (make-composed-keymap (cdr elt)
(symbol-value (car elt))))))))
-(defun ergoemacs-component-struct--translated-list (obj list &optional layout)
- "Base on OBJ translation, Translate LIST using LAYOUT."
- (let ((cur-layout (or layout ergoemacs-keyboard-layout))
- new-list)
- (dolist (key list)
- (ergoemacs :apply-key key
- (lambda(trans-key)
- (push (ergoemacs-translate
- trans-key
(ergoemacs-component-struct-just-first-keys obj)
- (ergoemacs-component-struct-variable-modifiers obj)
- (ergoemacs-component-struct-variable-prefixes obj)
cur-layout
- (ergoemacs-component-struct-layout obj))
- new-list))))
- new-list))
-
(defvar ergoemacs-component-struct--refresh-variables nil
"To reset a current theme, the variables are refreshed when this is
non-nil.")
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 2fe9b2b..b6e99c3 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -71,7 +71,6 @@
(declare-function ergoemacs-component-struct--lookup-hash
"ergoemacs-component")
(declare-function ergoemacs-component-struct--lookup-list
"ergoemacs-component")
(declare-function ergoemacs-component-struct--minor-mode-map-alist
"ergoemacs-component")
-(declare-function ergoemacs-component-struct--translated-list
"ergoemacs-component")
(declare-function ergoemacs-theme-components "ergoemacs-theme-engine")
@@ -485,24 +484,6 @@ global keymap. Otherwise, it is relative to
LOOKUP-KEYMAP."
(error "Cant calculate/lookup keymap")))
ret)))
-(defun ergoemacs-map--get-unbind-list (component-list)
- "Get the list of unbound keys based on COMPONENT-LIST.
-
-COMPONENT-LIST is a list of `ergoemacs-component-struct' items
-that will be applied.
-
-This is cached based on the current theme & theme options by
-`ergoemacs-cache'."
- (if (not (consp component-list)) nil
- (let (unbind-list)
- (ergoemacs-cache unbind-list
- (dolist (cur-map component-list)
- (setq unbind-list
- (append unbind-list
- (ergoemacs-component-struct--translated-list
- cur-map (ergoemacs-component-struct-unbind cur-map)))))
- unbind-list))))
-
(defun ergoemacs-map--get-undefined-map (component-list)
"Get a keymap of the ergoemacs-mode unbound keys based on COMPONENT-LIST.
