* init.el(b/duplicate-line-or-region): New convenience function.

[~bandali/configs] / lisp / bandali-eshell.el

diff --git a/lisp/bandali-eshell.el b/lisp/bandali-eshell.el
index f92f930..099cbb3 100644 (file)
--- a/lisp/bandali-eshell.el
+++ b/lisp/bandali-eshell.el
@@ -28,7 +28,11 @@
   :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)