emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 188/287: Fix some byte-compile issues


From: Matthew Fidler
Subject: [elpa] 188/287: Fix some byte-compile issues
Date: Wed, 02 Jul 2014 14:45:51 +0000

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

commit f6ed000b0e74e104cf426c2434307c572048789d
Author: Matthew L. Fidler <address@hidden>
Date:   Sun Jun 22 19:27:32 2014 -0500

    Fix some byte-compile issues
---
 ergoemacs-advices.el |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/ergoemacs-advices.el b/ergoemacs-advices.el
index b3160b4..d050fae 100644
--- a/ergoemacs-advices.el
+++ b/ergoemacs-advices.el
@@ -45,7 +45,7 @@
   "Force the define-keys to work"
   `(let ((ergoemacs-run-mode-hooks t))
      ,@body))
-
+(defvar ergoemacs-mode)
 (defvar ergoemacs-hook-functions nil)
 (defadvice add-hook (around ergoemacs-add-hook-advice (hook function &optional 
append  local) activate)
   "Advice to allow `this-command' to be set correctly before running 
`pre-command-hook'
@@ -203,6 +203,7 @@ This assumes any key defined while running a hook is a 
user-defined hook."
 ;;; functions :(
 
 ;;; key-description
+(declare-function ergoemacs-pretty-key "ergoemacs-translate.el")
 (declare-function ergoemacs-real-key-description
                   "ergoemacs-advices.el" (keys &optional prefix) t)
 (fset 'ergoemacs-real-key-description (symbol-function 'key-description))
@@ -221,8 +222,6 @@ Uses `ergoemacs-real-key-description'."
 
 (defvar ergoemacs-original-keys-to-shortcut-keys-regexp)
 (defvar ergoemacs-original-keys-to-shortcut-keys)
-(declare-function ergoemacs-pretty-key "ergoemacs-translate.el")
-(defvar ergoemacs-mode)
 (declare-function ergoemacs-emulations "ergoemacs-mode.el")
 (declare-function ergoemacs-remove-shortcuts "ergoemacs-shortcuts.el")
 (defun ergoemacs-substitute-command (string &optional map)
@@ -395,6 +394,6 @@ Assumes ergoemacs-real-FUNCTION and ergoemacs-FUNCTION as 
the two functions to t
      (t
       (fset ad (symbol-function (intern (concat "ergoemacs-" (symbol-name 
ad)))))))))
 (provide 'ergoemacs-advices)
-;;;;;;;;;;;;;;;;;;;;;;;;`';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ergoemacs-advices.el ends here
 ;; coding: utf-8-emacs



reply via email to

[Prev in Thread] Current Thread [Next in Thread]