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)
 

Reply via email to