[elpa] externals/ergoemacs-mode 3b10ca7 101/325: Remove ergoemacs-theme-set-version

[monnier--- via]

branch: externals/ergoemacs-mode
commit 3b10ca7ee6e7da4cdc98bbeac0b5d383ce4ab50d
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>

    Remove ergoemacs-theme-set-version
---
 ergoemacs-test.el         |  7 -------
 ergoemacs-theme-engine.el | 15 ---------------
 2 files changed, 22 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 1b9cad2..95c6362 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -71,11 +71,6 @@
 (declare-function ergoemacs-map-- "ergoemacs-map")
 (declare-function ergoemacs-map--modify-active "ergoemacs-map")
 
-(declare-function ergoemacs-require "ergoemacs-lib")
-
-(declare-function ergoemacs-theme--get-version "ergoemacs-theme")
-(declare-function ergoemacs-theme-set-version "ergoemacs-theme")
-
 (declare-function ergoemacs-translate--event-mods "ergoemacs-translate")
 (declare-function ergoemacs-translate--quail-to-ergoemacs 
"ergoemacs-translate")
 (declare-function ergoemacs-translate-layout "ergoemacs-translate")
@@ -212,7 +207,6 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
               ;; Make sure the copy functions don't think the last
               ;; command was a copy.
               last-command 'ergoemacs-test)
-        (ergoemacs-theme-set-version ,(or (plist-get plist ':version) nil))
         (unless (and (equal old-ergoemacs-theme ergoemacs-theme)
                      (equal old-ergoemacs-keyboard-layout 
ergoemacs-keyboard-layout)
                      (equal old-version (ergoemacs :current-vresion)))
@@ -232,7 +226,6 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
                 ;; kill-ring old-kill
                 ;; kill-ring-yank-pointer old-pointer
                 )
-          (ergoemacs-theme-set-version old-version)
           (when reset-ergoemacs
             (ergoemacs-mode-reset)))))))
 
diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index dbf4689..f07bf3e 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -134,21 +134,6 @@ This respects `ergoemacs-theme-options'."
     components))
 
 ;;;###autoload
-(defun ergoemacs-theme-set-version (version)
-  "Sets the current themes default VERSION"
-  (let (found)
-    (setq ergoemacs-theme-version
-          (mapcar
-           (lambda(elt)
-             (if (not (equal (ergoemacs :current-theme) (nth 0 elt)))
-                 elt
-               (setq found t)
-               (list (ergoemacs :current-theme) version)))
-           ergoemacs-theme-version))
-    (unless found
-      (push (list (ergoemacs :current-theme) version) 
ergoemacs-theme-version))))
-
-;;;###autoload
 (defun ergoemacs-theme-option-off (option &optional no-custom)
   "Turns OPTION off.
 Uses `ergoemacs-theme-option-on'."