[elpa] externals/ergoemacs-mode e05f951 222/325: Cleanup

[Stefan Monnier]

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

    Cleanup
---
 ergoemacs-component.el | 24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index 24cad71..d8f8149 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -922,30 +922,6 @@ OBJECT is the `ergoemacs-component-struct' object being 
changed."
 
 (defvar ergoemacs-component-struct--refresh-variables nil)
 
-(defun ergoemacs-component-find-no-select (component &optional type)
-  "Find COMPONENT of TYPE.
-
-TYPE can be 'ergoemacs-theme, if not it defaults to a single component."
-  (let* ((comp (or (and (eq type 'ergoemacs-theme)
-                        (ergoemacs-gethash (format "%s" (or component 
"standard")) ergoemacs-theme-hash))
-                   (ergoemacs-component-struct--lookup-hash (or component 
""))))
-         (plist (and comp (or (and (eq type 'ergoemacs-theme) comp)
-                              (ergoemacs-component-struct-plist comp))))
-         (file (and comp (plist-get plist :file)))
-         (el-file (and file (concat (file-name-sans-extension file) ".el")))
-         (name (plist-get plist :name))
-         (sym (intern name))
-         loc)
-    (if (not comp)
-        (message "Invalid %s %s" (or (and (eq type 'ergoemacs-theme) "theme")
-                                     "component") component)
-      (setq loc (find-function-search-for-symbol sym (or type 
'ergoemacs-component) el-file))
-      (when (and (eq type 'ergoemacs-component) (not (cdr loc)) (< 6 (length 
name)))
-        (setq sym (intern (substring name 0 -6))
-              loc (find-function-search-for-symbol
-                   sym (or type 'ergoemacs-component) el-file)))
-      loc)))
-
 (defun ergoemacs-component-at-point (&optional theme-instead)
   "Get the `ergoemacs-component' defined at or before point.