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'."
