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

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

[elpa] externals/pulsar c5d528dc91 05/15: Put back the line pulse this h


From: ELPA Syncer
Subject: [elpa] externals/pulsar c5d528dc91 05/15: Put back the line pulse this helps for backward-kill-word, for example.
Date: Tue, 26 Nov 2024 03:58:50 -0500 (EST)

branch: externals/pulsar
commit c5d528dc91c759056a178608d8514aa9470aee85
Author: shipmints <shipmints@gmail.com>
Commit: shipmints <shipmints@gmail.com>

    Put back the line pulse this helps for backward-kill-word, for example.
---
 pulsar.el | 43 ++++++++++++++++++++++---------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index 52c5ea85a7..5511cac77d 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -379,27 +379,28 @@ pulse effect."
 (defun pulsar-pulse-region ()
   "Temporarily highlight the active region if any."
   (interactive)
-  (when (region-active-p)
-    (let ((beg (region-beginning))
-          (end (region-end)))
-      ;; FIXME 2024-08-29: Finding the lines and columns therein
-      ;; does not work because consecutive pulses cancel each
-      ;; other out, leaving only the last one active.
-      ;;
-      ;; (let* ((columns (rectangle--pos-cols beg end))
-      ;;        (begcol (car columns))
-      ;;        (endcol (cdr columns)))
-      ;;    (lines (list
-      ;;            (line-number-at-pos beg)
-      ;;            (line-number-at-pos end))))
-      ;; (dolist (line lines)
-      ;;   (save-excursion
-      ;;     (goto-char (point-min))
-      ;;     (forward-line (1- line))
-      ;;     (setq beg (progn (move-to-column begcol) (point))
-      ;;           end (progn (move-to-column endcol) (point))))
-      ;;   (pulsar--pulse nil nil beg end)))
-      (pulsar--pulse nil pulsar-region-face beg end))))
+  (if (region-active-p)
+      (let ((beg (region-beginning))
+            (end (region-end)))
+        ;; FIXME 2024-08-29: Finding the lines and columns therein
+        ;; does not work because consecutive pulses cancel each
+        ;; other out, leaving only the last one active.
+        ;;
+        ;; (let* ((columns (rectangle--pos-cols beg end))
+        ;;        (begcol (car columns))
+        ;;        (endcol (cdr columns)))
+        ;;    (lines (list
+        ;;            (line-number-at-pos beg)
+        ;;            (line-number-at-pos end))))
+        ;; (dolist (line lines)
+        ;;   (save-excursion
+        ;;     (goto-char (point-min))
+        ;;     (forward-line (1- line))
+        ;;     (setq beg (progn (move-to-column begcol) (point))
+        ;;           end (progn (move-to-column endcol) (point))))
+        ;;   (pulsar--pulse nil nil beg end)))
+        (pulsar--pulse nil pulsar-region-face beg end))
+    (pulsar--pulse nil pulsar-region-face)))
 
 ;;;###autoload
 (defun pulsar-highlight-line ()



reply via email to

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