[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/xah-fly-keys e8ba384256 2/2: corrected code error from pre
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/xah-fly-keys e8ba384256 2/2: corrected code error from prev commit |
|
Date: |
Tue, 25 Mar 2025 22:01:26 -0400 (EDT) |
branch: elpa/xah-fly-keys
commit e8ba384256e8c88c7fe218b85c7da9e44d9b2074
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>
corrected code error from prev commit
---
xah-fly-keys.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index b833e89427..0b7299e29e 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: 26.11.20250325184302
+;; Version: 26.11.20250325184849
;; Created: 2013-09-10
;; Package-Requires: ((emacs "27"))
;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -366,7 +366,7 @@ Created: 2022-01-22
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(sort-lines current-prefix-arg xbeg xend)))
(defun xah-narrow-to-region ()
@@ -375,7 +375,7 @@ Created: 2022-01-22
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(narrow-to-region xbeg xend)))
;; HHHH------------------------------
@@ -865,7 +865,7 @@ Version: 2025-03-25"
(completing-read "Replace this:" xbrackets nil t nil nil (car
xbrackets))
(completing-read "To:" xbrackets nil t nil nil (car (last
xbrackets)))))))
(let (xbeg xend xleft xright xtoL xtoR)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(let ((xsFrom (last (split-string FromChars " ") 2))
(xsTo (last (split-string ToChars " ") 2)))
@@ -960,7 +960,7 @@ Created: 2020-12-08
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(save-restriction
(narrow-to-region xbeg xend)
(let ((case-fold-search nil))
@@ -1061,7 +1061,7 @@ Created: 2022-01-20
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(save-restriction
(narrow-to-region xbeg xend)
(goto-char (point-min))
@@ -1111,7 +1111,7 @@ Version: 2025-03-25"
(let ( (xisLongline (if (eq last-command this-command) (get this-command
'longline-p) t))
(deactivate-mark nil)
xbeg xend )
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(if xisLongline
(fill-region xbeg xend)
(let ((fill-column 99999 ))
@@ -1181,7 +1181,7 @@ Version: 2025-03-25"
(setq xminlen (if MinLength MinLength (if current-prefix-arg
(prefix-numeric-value current-prefix-arg) fill-column)))
(if (and Begin End)
(setq xbeg Begin xend End)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point))))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point)))))))
(save-excursion
(save-restriction
(narrow-to-region xbeg xend)
@@ -1206,7 +1206,7 @@ Version: 2025-03-25"
(let (xisLong xwidth xbeg xend)
(setq xwidth (if Width Width (if current-prefix-arg (prefix-numeric-value
current-prefix-arg) 66)))
(setq xisLong (if (eq last-command this-command) (get this-command
'is-long-p) nil))
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(if current-prefix-arg
(xah-reformat-to-multi-lines xbeg xend xwidth)
(if xisLong
@@ -1225,7 +1225,7 @@ Created: 2020-12-02
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(save-restriction
(narrow-to-region xbeg xend)
(goto-char (point-min)) (while (search-forward "。" nil t) (replace-match
"。\n"))
@@ -1255,7 +1255,7 @@ Created: 2017-08-19
Version: 2025-03-25"
(interactive)
(let (xbeg xend)
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(save-restriction
(narrow-to-region xbeg xend)
(goto-char (point-min))
@@ -1460,7 +1460,7 @@ Version: 2025-03-25"
(t xsepChoice)))
(list xquoteL xquoteR xsep)))
(let (xbeg xend (xquoteL QuoteL) (xquoteR QuoteR) (xsep Sep))
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p) (list
(region-beginning) (region-end)) (list (save-excursion (if (re-search-backward
"\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if
(re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(save-excursion
(save-restriction
(narrow-to-region xbeg xend)
@@ -1770,7 +1770,7 @@ Version: 2025-03-25"
(goto-char (+ xend (length LBracket))))
((eq WrapMethod 'block)
(save-excursion
- (seq-setq (xbeg xend) (seq-setq (xbeg xend) (if (region-active-p)
(list (region-beginning) (region-end)) (list (save-excursion (if
(re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion
(if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))))
+ (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning)
(region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1)
(match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil
1) (match-beginning 0) (point))))))
(goto-char xend)
(insert RBracket)
(goto-char xbeg)