From 3d7cc479c6dcc9550b9f03176272f5a9c4655b4c Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 16 Apr 2020 18:10:10 -0400 Subject: [PATCH] Address a few more byte-compiler warnings --- lisp/bandali-eshell.el | 9 ++++++++- lisp/bandali-ibuffer.el | 2 ++ lisp/bandali-org.el | 4 +++- 3 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/bandali-eshell.el b/lisp/bandali-eshell.el index f92f930..099cbb3 100644 --- a/lisp/bandali-eshell.el +++ b/lisp/bandali-eshell.el @@ -28,7 +28,11 @@ :commands eshell :bind ("C-c a s e" . eshell) :config - (eval-when-compile (defvar eshell-prompt-regexp)) + (eval-when-compile + (defvar eshell-prompt-regexp) + (declare-function eshell-life-is-too-much "esh-mode") + (declare-function eshell-send-input "esh-mode" + (&optional use-region queue-p no-newline))) (defun b/eshell-quit-or-delete-char (arg) (interactive "p") (if (and (eolp) (looking-back eshell-prompt-regexp nil)) @@ -44,6 +48,9 @@ (defun b/eshell-setup () (make-local-variable 'company-idle-delay) (defvar company-idle-delay) + (eval-when-compile + (defvar eshell-mode-map) + (defvar eshell-hist-mode-map)) (setq company-idle-delay nil) (bind-keys :map eshell-mode-map ("C-d" . b/eshell-quit-or-delete-char) diff --git a/lisp/bandali-ibuffer.el b/lisp/bandali-ibuffer.el index dd5857d..68f100f 100644 --- a/lisp/bandali-ibuffer.el +++ b/lisp/bandali-ibuffer.el @@ -41,6 +41,8 @@ ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0))) ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0))) (t (format "%8d" (buffer-size))))) + (declare-function ibuffer-switch-to-saved-filter-groups "ibuf-ext" + (name)) :custom (ibuffer-saved-filter-groups '(("default" diff --git a/lisp/bandali-org.el b/lisp/bandali-org.el index 76b5c6c..a9ab750 100644 --- a/lisp/bandali-org.el +++ b/lisp/bandali-org.el @@ -77,6 +77,7 @@ (use-package ox-extra :config + (declare-function ox-extras-activate "ox-extra" (extras)) (ox-extras-activate '(latex-header-blocks ignore-headlines))) ;; asynchronous tangle, using emacs-async to asynchronously tangle an @@ -96,7 +97,8 @@ (file (buffer-file-name)) (file-nodir (file-name-nondirectory file)) ;; (async-quiet-switch "-q") - (file-noext (file-name-sans-extension file))) + ;; (file-noext (file-name-sans-extension file)) + ) (async-start `(lambda () (require 'org) -- 2.20.1