branch: elpa/xah-fly-keys commit c2e0d75a16ace4d44fdb7abd6e026c0dea6c0571 Author: Xah Lee <x...@xahlee.org> Commit: Xah Lee <x...@xahlee.org>
xah-select-block new behavior. now select without the ending empty lines, when the command is not repeated. change key, xah-slash-to-backslash and other related to slash backslash. now have the same prefix. --- xah-fly-keys.el | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/xah-fly-keys.el b/xah-fly-keys.el index f38c3d4548..f8fafcd9c5 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: 26.12.20250606101544 +;; Version: 26.12.20250628080356 ;; Created: 2013-09-10 ;; Package-Requires: ((emacs "28.3")) ;; Keywords: convenience, vi, vim, ergoemacs, keybinding @@ -1941,21 +1941,20 @@ Version: 2023-09-19" ;; text selection (defun xah-select-block () - "Select the current/next block plus 1 blankline. -If region is active, extend selection downward by block. + "Select the current/next block. URL `http://xahlee.info/emacs/emacs/emacs_select_text_block.html' Created: 2019-12-26 -Version: 2023-11-14" +Version: 2025-06-25" (interactive) (if (region-active-p) (re-search-forward "\n[ \t]*\n[ \t]*\n*" nil 1) (progn - (skip-chars-forward " \n\t") (when (re-search-backward "\n[ \t]*\n" nil 1) (goto-char (match-end 0))) (push-mark (point) t t) - (re-search-forward "\n[ \t]*\n" nil 1)))) + (re-search-forward "\n[ \t]*\n" nil 1) + (skip-chars-backward " \t\n")))) (defun xah-select-line () "Select current line. If region is active, extend selection downward by line. @@ -3572,12 +3571,11 @@ Version: 2024-04-22" ("r ," . apply-macro-to-region-lines) ("r ." . kmacro-start-macro) - ("r /" . xah-slash-to-double-backslash) + ("r 3" . number-to-register) ("r 4" . increment-register) ("r RET" . nil) ("r SPC" . nil) - ("r \\" . xah-slash-to-backslash) ("r a" . nil) ("r b" . nil) @@ -3599,7 +3597,14 @@ Version: 2024-04-22" ("r q" . kill-rectangle) ("r r" . rectangle-mark-mode) - ("r s" . nil) + + ("r s e" . xah-slash-to-backslash) + ("r s h" . xah-slash-to-double-backslash) + ("r s m" . xah-double-backslash-to-slash) + ("r s s" . xah-double-backslash-to-single) + ("r s t" . xah-double-backslash) + ("r s u" . xah-backslash-to-slash) + ;; kmacro-end-and-call-macro ("r t RET" . #'kmacro-edit-macro) ("r t SPC" . #'kmacro-step-edit-macro) @@ -3626,7 +3631,7 @@ Version: 2024-04-22" ("r u" . xah-quote-lines) ("r v" . nil) ("r w" . nil) - ("r x" . xah-double-backslash-to-slash) + ("r x" . nil) ("r y" . delete-whitespace-rectangle) ("r z" . nil)