[elpa] externals/ergoemacs-mode 64215dc 223/325: Remove some unused theme functions

[Stefan Monnier]

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

    Remove some unused theme functions
---
 ergoemacs-component.el    |  2 --
 ergoemacs-map.el          |  1 -
 ergoemacs-theme-engine.el | 20 --------------------
 3 files changed, 23 deletions(-)

diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index d8f8149..d38117d 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -79,8 +79,6 @@
 (declare-function ergoemacs-map-properties--empty-p "ergoemacs-map-properties")
 (declare-function ergoemacs-map-properties--label "ergoemacs-map-properties")
 
-(declare-function ergoemacs-theme--get-version "ergoemacs-theme-engine")
-
 (declare-function ergoemacs-map-- "ergoemacs-map")
 
 (declare-function ergoemacs-map-keymap "ergoemacs-mapkeymap")
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 5c031f0..ef1b514 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -73,7 +73,6 @@
 (declare-function ergoemacs-component-struct--minor-mode-map-alist 
"ergoemacs-component")
 (declare-function ergoemacs-component-struct--translated-list 
"ergoemacs-component")
 
-(declare-function ergoemacs-theme--get-version "ergoemacs-theme-engine")
 (declare-function ergoemacs-theme-components "ergoemacs-theme-engine")
 
 (declare-function ergoemacs-map-keymap "ergoemacs-mapkeymap")
diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index e1ddbe6..eb3b950 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -162,14 +162,6 @@ If OFF is non-nil, turn off the options instead."
   (when ergoemacs-mode
     (ergoemacs-mode-reset)))
 
-;;;###autoload
-(defun ergoemacs-theme-toggle-option (option)
-  "Toggle theme OPTION."
-  (if (ergoemacs-theme-option-enabled-p option)
-      (ergoemacs-theme-option-off option)
-    (ergoemacs-theme-option-on option)))
-
-
 (defun ergoemacs-theme--custom-documentation (&optional themes ini)
   "Get list of all known layouts and their documentation.
 
@@ -202,18 +194,6 @@ When AT-END is non-nil, append a $ to the regular 
expression."
       (setq ret (concat ret "$")))
     ret))
 
-(defun ergoemacs-theme-option-enabled-p (option)
-  "Determines if OPTION is enabled."
-  (let* ((plist (ergoemacs-gethash (ergoemacs :current-theme) 
ergoemacs-theme-hash))
-         (options-on (plist-get plist :optional-on))
-         (options-off (plist-get plist :optional-off))
-         (required (plist-get plist :components)))
-    (or (member option required)
-        (and (member option options-on)
-             (not (member (list option 'off) ergoemacs-theme-options)))
-        (and (member option options-off)
-             (member (list option 'on) ergoemacs-theme-options)))))
-
 (defun ergoemacs-theme--get-version ()
   "Get the current version for the current theme."
   (let ((theme-ver (assoc (ergoemacs :current-theme) ergoemacs-theme-version)))