[elpa] externals/speedrect bae04ed3a3 67/90: amalgamate fill changes

[ELPA Syncer]

branch: externals/speedrect
commit bae04ed3a347bb0ceca7019fdfd332a96d7bafd2
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    amalgamate fill changes
---
 speedrect.el | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/speedrect.el b/speedrect.el
index 924a85e699..61b6936af2 100644
--- a/speedrect.el
+++ b/speedrect.el
@@ -235,25 +235,26 @@ each side of the inserted text."
                (read-number "Fill width: "))
               (t (prefix-numeric-value current-prefix-arg)))))
   (when (<= width 0) (user-error "Fill width must be >0"))
-  (let ((rect (apply #'delete-extract-rectangle
-                    (if (< (point) (mark))
-                        (list (point) (mark))
-                      (list (mark) (point))))))
-    (with-temp-buffer
-      (dolist (line rect) (insert line " "))
-      (message "GOT %S" (buffer-string))
-      (let ((fill-column (point-max)))
-       (fill-region (point-min) (point-max)))
-      (let ((fill-column width))
-       (fill-region (point-min) (point-max) nil 'nosqueeze))
-      (message "THEN %S" (buffer-string))
-      (goto-char (point-min))
-      (set-mark (point))
-      (goto-char (point-max))
-      (beginning-of-line)
-      (rectangle-forward-char width)
-      (speedrect-copy-rectangle-dwim))
-    (speedrect-yank-rectangle-dwim)))
+  (with-undo-amalgamate
+    (let ((rect (apply #'delete-extract-rectangle
+                      (if (< (point) (mark))
+                          (list (point) (mark))
+                        (list (mark) (point))))))
+      (with-temp-buffer
+       (dolist (line rect) (insert line " "))
+       (message "GOT %S" (buffer-string))
+       (let ((fill-column (point-max)))
+         (fill-region (point-min) (point-max)))
+       (let ((fill-column width))
+         (fill-region (point-min) (point-max) nil 'nosqueeze))
+       (message "THEN %S" (buffer-string))
+       (goto-char (point-min))
+       (set-mark (point))
+       (goto-char (point-max))
+       (beginning-of-line)
+       (rectangle-forward-char width)
+       (speedrect-copy-rectangle-dwim))
+      (speedrect-yank-rectangle-dwim))))
 
 (defun speedrect-transient-map-info ()
   "Documentation window for speedrect."