[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 29/117: Cleanup byte compile
From: |
Matthew Fidler |
Subject: |
[elpa] 29/117: Cleanup byte compile |
Date: |
Fri, 25 Jul 2014 13:24:00 +0000 |
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
- [elpa] 14/117: Attempt Lexical Scoping for ergoemacs-translate.el, (continued)
- [elpa] 14/117: Attempt Lexical Scoping for ergoemacs-translate.el, Matthew Fidler, 2014/07/25
- [elpa] 20/117: Add left/right to pretty key descriptions, Matthew Fidler, 2014/07/25
- [elpa] 19/117: Pretty key cleanup, Matthew Fidler, 2014/07/25
- [elpa] 22/117: Fix guide-key-mode requirement, Matthew Fidler, 2014/07/25
- [elpa] 24/117: Comment ergoemacs-substitute-command-keys, Matthew Fidler, 2014/07/25
- [elpa] 21/117: Better guide-key support, Matthew Fidler, 2014/07/25
- [elpa] 25/117: Add command prompt here and powershell here, Matthew Fidler, 2014/07/25
- [elpa] 23/117: Fix (substitute-command-keys "\\[recover-session]"), Matthew Fidler, 2014/07/25
- [elpa] 27/117: Fix recursive loading in ergoemacs-mode source, Matthew Fidler, 2014/07/25
- [elpa] 30/117: Declare w32-long-file-name, Matthew Fidler, 2014/07/25
- [elpa] 29/117: Cleanup byte compile,
Matthew Fidler <=
- [elpa] 31/117: More emcompassing shell prompt regexp, Matthew Fidler, 2014/07/25
- [elpa] 26/117: Fix load dependence, See Issue #232, Matthew Fidler, 2014/07/25
- [elpa] 33/117: Added space as separtor for PS1 prompt, Matthew Fidler, 2014/07/25
- [elpa] 35/117: Remap shell to ergoemacs-shell-here, Matthew Fidler, 2014/07/25
- [elpa] 28/117: Add unix shell support, Matthew Fidler, 2014/07/25
- [elpa] 36/117: Add eshell here and powershell key, Matthew Fidler, 2014/07/25
- [elpa] 37/117: Make C-u show ergoemacs-keys when unspecified, Matthew Fidler, 2014/07/25
- [elpa] 38/117: Make ergoemacs-track use lexical scoping, Matthew Fidler, 2014/07/25
- [elpa] 39/117: Make ergoemacs-unbind lexically scoped, Matthew Fidler, 2014/07/25
- [elpa] 34/117: Use abbreviated file name for shell here, Matthew Fidler, 2014/07/25