[nongnu] elpa/xah-fly-keys 95f80e4b66 1/2: `xah-beginning-of-line-or-block': Eshell go to start of input

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 95f80e4b660a0c458bd6b4d96af7a24b7cd4b22b
Author: Celestial Nebula <41875671+CelestialNebula@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    `xah-beginning-of-line-or-block': Eshell go to start of input
    
    Matches `shell' behavior.
---
 xah-fly-keys.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 568b6dced4..a6db1d9cac 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 17.15.20220628130211
+;; Version: 17.15.20220703230000
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -216,7 +216,7 @@ Version: 2016-04-04"
 • if `visual-line-mode' is on, beginning of line means visual line.
 
 URL 
`http://xahlee.info/emacs/emacs/emacs_keybinding_design_beginning-of-line-or-block.html'
-Version: 2018-06-04 2021-03-16 2022-03-30"
+Version: 2018-06-04 2021-03-16 2022-03-30 2022-07-03"
   (interactive)
   (let (($p (point)))
     (if (or (equal (point) (line-beginning-position))
@@ -227,7 +227,10 @@ Version: 2018-06-04 2021-03-16 2022-03-30"
           (forward-char))
       (if visual-line-mode
           (beginning-of-visual-line)
-        (progn
+        (if (eq major-mode 'eshell-mode)
+            (progn
+              (declare-function eshell-bol "esh-mode.el" ())
+              (eshell-bol))
           (back-to-indentation)
           (when (eq $p (point))
             (beginning-of-line)))))))