Merge pull request #7 from jeffkreeftmeijer/eshell-bol-ignoring-prompt

Use eshell-bol-ignoring-prompt on Emacs 30
SqrtMinusOne · Apr 9, 2024 · 1b71d4c · 1b71d4c
2 parents 3113b9a + 4e599d2
commit 1b71d4c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/eshell-atuin.el b/eshell-atuin.el
@@ -128,10 +128,15 @@ include here.  Some examples:
 (defvar eshell-atuin--session-id nil
   "Current atuin session ID.")
 
+(defun eshell-atuin--bol-ignoring-prompt ()
+  (if (fboundp 'eshell-bol-ignoring-prompt)
+      (eshell-bol-ignoring-prompt nil)
+    (beginning-of-line)))
+
 (defun eshell-atuin--get-input ()
   "Get eshell input string on the current line."
   (save-excursion
-    (beginning-of-line)
+    (eshell-atuin--bol-ignoring-prompt)
     (when (looking-at-p eshell-prompt-regexp)
       (substring-no-properties (eshell-get-old-input)))))