From: Amin Bandali Date: Thu, 16 Apr 2020 22:10:10 +0000 (-0400) Subject: Address a few more byte-compiler warnings X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/3d7cc479c6dcc9550b9f03176272f5a9c4655b4c?ds=inline;hp=46b0569f717f7e5fa9cc43355bd5d8a544521453 Address a few more byte-compiler warnings --- 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)