[elpa] externals/ergoemacs-mode 2caaef6 239/325: Remove unused functions

[Stefan Monnier]

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