emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/xah-fly-keys e5ac096b15: xah-reformat-to-sentence-lines no


From: ELPA Syncer
Subject: [nongnu] elpa/xah-fly-keys e5ac096b15: xah-reformat-to-sentence-lines now handles question mark and exclaimation mark
Date: Sun, 11 Dec 2022 16:59:41 -0500 (EST)

branch: elpa/xah-fly-keys
commit e5ac096b1585c2c28e8d4ce543aec6ae840cac14
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>

    xah-reformat-to-sentence-lines now handles question mark and exclaimation 
mark
---
 xah-fly-keys.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 7dd88cd2c0..b7435f0c7a 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: 22.3.20221208105541
+;; Version: 22.3.20221211131110
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -1236,7 +1236,7 @@ Move cursor to the beginning of next text block.
 After this command is called, press `xah-repeat-key' to repeat it.
 
 URL `http://xahlee.info/emacs/emacs/elisp_reformat_to_sentence_lines.html'
-Version: 2020-12-02 2022-03-22"
+Version: 2020-12-02 2022-03-22 2022-12-11"
   (interactive)
   (let ($p1 $p2)
     (let (($bds (xah-get-bounds-of-block-or-region))) (setq $p1 (car $bds) $p2 
(cdr $bds)))
@@ -1251,11 +1251,11 @@ Version: 2020-12-02 2022-03-22"
       (goto-char (point-min))
       (while (re-search-forward "  +" nil t) (replace-match " "))
       (goto-char (point-min))
-      (while (re-search-forward "\\. +\\([(0-9A-Za-z]+\\)" nil t) 
(replace-match ".\n\\1"))
+      (while (re-search-forward "\\([.?!]\\) +\\([(0-9A-Za-z]+\\)" nil t) 
(replace-match "\\1\n\\2"))
       (goto-char (point-max))
       (while (eq (char-before) 32) (delete-char -1))))
   (re-search-forward "\n+" nil 1)
-(set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap))
+  (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap (or 
xah-repeat-key (kbd "DEL")) this-command) $kmap))
   (set-transient-map (let (($kmap (make-sparse-keymap))) (define-key $kmap 
(kbd "DEL") this-command) $kmap)))
 
 (defun xah-space-to-newline ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]