[elpa] externals/ergoemacs-mode fd10f7c 214/325: Cleanup

[Stefan Monnier]

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

    Cleanup
---
 ergoemacs-test.el   | 26 +-------------------------
 ergoemacs-themes.el |  1 -
 2 files changed, 1 insertion(+), 26 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index e6fe690..c262809 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -35,7 +35,6 @@
 (declare-function ergoemacs-translate--keymap "ergoemacs-translate")
 (declare-function ergoemacs-mode-reset "ergoemacs-mode")
 
-(defvar ergoemacs-translate--parent-map)
 (defvar ergoemacs-map--)
 (defvar ergoemacs-layout-us)
 (defvar ergoemacs-keyboard-layout)
@@ -45,10 +44,6 @@
 (defvar ergoemacs-mode)
 (defvar dired-sort-map)
 (defvar dired-mode-map)
-(defvar cl-struct-ergoemacs-component-struct-tags)
-
-(declare-function ergoemacs-key-description "ergoemacs-key-description")
-
 
 (declare-function ergoemacs-translate--meta-to-escape "ergoemacs-translate")
 (declare-function ergoemacs-map-keymap "ergoemacs-mapkeymap")
@@ -57,8 +52,6 @@
 
 (declare-function ergoemacs-command-loop--mouse-command-drop-first 
"ergoemacs-command-loop")
 
-(declare-function ergoemacs-component-struct--lookup-hash 
"ergoemacs-compononent")
-
 (declare-function ergoemacs-copy-line-or-region "ergoemacs-functions")
 (declare-function ergoemacs-cut-line-or-region "ergoemacs-functions")
 (declare-function ergoemacs-emacs-exe "ergoemacs-functions")
@@ -67,11 +60,8 @@
 
 (declare-function ergoemacs-map-- "ergoemacs-map")
 
-(declare-function ergoemacs-translate--event-mods "ergoemacs-translate")
 (declare-function ergoemacs-translate--quail-to-ergoemacs 
"ergoemacs-translate")
 (declare-function ergoemacs-translate-layout "ergoemacs-translate")
-(declare-function ergoemacs-translate--get "ergoemacs-translate")
-(declare-function ergoemacs-translate--event-modifiers "ergoemacs-translate")
 
 (require 'ert)
 (require 'elp)
@@ -88,13 +78,6 @@ reprehenderit in voluptate velit esse cillum dolore eu fugiat
 nulla pariatur. Excepteur sint occaecat cupidatat non proident,
 sunt in culpa qui officia deserunt mollit anim id est laborum.")
 
-(defun ergoemacs-test-require-input ()
-  "Run tests that require input."
-  (interactive)
-  (elp-instrument-package "ergoemacs-")
-  (ert '(and "ergoemacs-" (tag :require-input)))
-  (call-interactively 'elp-results))
-
 (defun ergoemacs-test-fast ()
   "Fast test of ergoemacs-mode (doesn't include keyboard startup issues)."
   (interactive)
@@ -116,13 +99,6 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
   (ert '(and "ergoemacs-" (tag :map-keymap)))
   (call-interactively 'elp-results))
 
-(defun ergoemacs-test-copy ()
-  "Copy/Paste test for ergoemacs-mode."
-  (interactive)
-  (elp-instrument-package "ergoemacs-")
-  (ert '(and "ergoemacs-" (tag :copy)))
-  (call-interactively 'elp-results))
-
 (defun ergoemacs-test-calc ()
   "Test for calc."
   (interactive)
@@ -165,7 +141,7 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
   (let ((ret t)
         (test))
     (elp-instrument-package "ergoemacs-")
-    (ert '(and "^ergoemacs-test-" (not (tag :require-input))))
+    (ert "^ergoemacs-test-")
     (call-interactively 'elp-results)))
 
 ;; Test isearch
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 54aeb10..7c5e85e 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1189,7 +1189,6 @@ keys (e.g. M-O A == <up>) or regular M-O keybinding."
     )
   )
 
-(defvar ergoemacs-override-alist)
 (defvar ergoemacs-override-keymap)
 
 (defun ergoemacs-install-standard-theme ()