branch: elpa/xah-fly-keys
commit 95f80e4b660a0c458bd6b4d96af7a24b7cd4b22b
Author: Celestial Nebula <41875671+celestialneb...@users.noreply.github.com>
Commit: GitHub <nore...@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 <x...@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)))))))
