From 0fa6a6ba99361ff513dfd93f24d605a07a5c9f07 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Thu, 3 Aug 2017 12:44:45 +0200 Subject: Emacs: Fix byte-compiler warnings --- emacs/.emacs.d/init.el | 12 ++++-------- emacs/.emacs.d/init.org | 5 ++--- 2 files changed, 6 insertions(+), 11 deletions(-) (limited to 'emacs') diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 9e8e109a..ffde904a 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -604,7 +604,7 @@ :demand t :diminish projectile-mode :config (progn - (projectile-global-mode +1) + (projectile-mode +1) (add-to-list 'projectile-globally-ignored-directories ".stversions") (defun yarn-install (&optional arg) @@ -1706,6 +1706,7 @@ ;; #+BEGIN_SRC emacs-lisp (use-package ledger-mode :mode ("\\.ledger\\'" . ledger-mode) + :functions ledger-report :init (progn (defun open-budget () (interactive) @@ -2169,16 +2170,11 @@ (use-package js2-mode :mode (("\\.js\\'" . js2-mode)) :interpreter ("node" . js2-mode) - :functions js2-next-error + :functions (js2-next-error + js2--struct-put) :config (progn (define-key js2-mode-map [menu-bar Javascript] nil) - (defun js2--imenu-around (do-it name) - "Don't create a menu from js2-mode" - (if (and (not (string-equal name "IM-Javascript-IDE")) - (fboundp #'do-it)) - (do-it name))) (add-hook 'js2-mode-hook #'js2-imenu-extras-mode) - (advice-add 'imenu-add-to-menubar :around #'js2--imenu-around) (defun ap/js2-prev-error () (interactive) (js2-next-error -1)) diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 78c1ede5..da79d68f 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -604,7 +604,7 @@ ones. :demand t :diminish projectile-mode :config (progn - (projectile-global-mode +1) + (projectile-mode -1) (add-to-list 'projectile-globally-ignored-directories ".stversions") (defun yarn-install (&optional arg) @@ -2174,8 +2174,7 @@ an AST internally, so it can work with it almost like a lisp. (define-key js2-mode-map [menu-bar Javascript] nil) (defun js2--imenu-around (do-it name) "Don't create a menu from js2-mode" - (if (and (not (string-equal name "IM-Javascript-IDE")) - (fboundp #'do-it)) + (if (not (string-equal name "IM-Javascript-IDE")) (do-it name))) (add-hook 'js2-mode-hook #'js2-imenu-extras-mode) (advice-add 'imenu-add-to-menubar :around #'js2--imenu-around) -- cgit 1.4.1