mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit f6ed000b0e74e104cf426c2434307c572048789d Author: Matthew L. Fidler <[email protected]> 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
