[elpa] 29/117: Cleanup byte compile

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 773fe422f7377b4c02fe143f9ff683195cf163c5
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 16 11:09:38 2014 -0500

    Cleanup byte compile
---
 ergoemacs-functions.el |    6 ++++--
 ergoemacs-macros.el    |    4 +++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index d7afeaf..7459fcd 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -2140,14 +2140,16 @@ Guillemet -> quote, degree -> @, s-zed -> ss, 
upside-down ?! -> ?!."
 
 (add-hook 'dirtrack-directory-change-hook 
'ergoemacs-shell-here-directory-change-hook)
 
+(defvar dirtrack-list)
+(declare-function shell-dirtrack-mode "shell.el")
+(declare-function dirtrack-mode "dirtrack.el")
 (defun ergoemacs-shell-here-hook ()
   "Hook for `ergoemacs-shell-here'.
 Sends shell prompt string to process, then turns on
 `dirtrack-mode' as well as add rename buffer filter when the directory has 
been changed."
   (when (string-match "address@hidden" (buffer-name))
     (let ((shell (or (and (boundp 'explicit-shell-file-name) 
explicit-shell-file-name)
-                     (getenv "ESHELL") shell-file-name))
-          (proc (get-buffer-process (current-buffer))))
+                     (getenv "ESHELL") shell-file-name)))
       (require 'dirtrack)
       (cond
        ((string-match "cmd\\(proxy\\)?.exe" shell)
diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index 3ad1536..3fc3fae 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -219,7 +219,9 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and
   (let ((kb (make-symbol "body-and-plist")))
     (setq kb (ergoemacs-theme-component--parse body-and-plist))
     `(progn
-       (require 'ergoemacs-mode) ;; This should be loaded
+       (unless (boundp 'ergoemacs-theme-comp-hash)
+         (defvar ergoemacs-theme-comp-hash (make-hash-table :test 'equal)
+           "Hash of ergoemacs theme components"))
        (puthash ,(plist-get (nth 0 kb) ':name)
                 (lambda() ,(plist-get (nth 0 kb) ':description)
                   (ergoemacs-theme-component--create-component