Address a few more byte-compiler warnings
authorAmin Bandali <bandali@gnu.org>
Thu, 16 Apr 2020 22:10:10 +0000 (18:10 -0400)
committerAmin Bandali <bandali@gnu.org>
Thu, 16 Apr 2020 22:10:10 +0000 (18:10 -0400)
lisp/bandali-eshell.el
lisp/bandali-ibuffer.el
lisp/bandali-org.el

index f92f930..099cbb3 100644 (file)
   :commands eshell
   :bind ("C-c a s e" . eshell)
   :config
   :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))
   (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)
   (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)
     (setq company-idle-delay nil)
     (bind-keys :map eshell-mode-map
                ("C-d"   . b/eshell-quit-or-delete-char)
index dd5857d..68f100f 100644 (file)
@@ -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)))))
      ((> (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"
   :custom
   (ibuffer-saved-filter-groups
    '(("default"
index 76b5c6c..a9ab750 100644 (file)
@@ -77,6 +77,7 @@
 
 (use-package ox-extra
   :config
 
 (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
   (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 (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)
       (async-start
        `(lambda ()
           (require 'org)