[elpa] externals/pulsar 467b0205ac 1/3: pulse the active region. if there are no regions, do nothing.

[ELPA Syncer]

branch: externals/pulsar
commit 467b0205acca815ee1f83a7208c0cac9e71ae3b7
Author: Bahman Movaqar <bahman@bahmanm.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    pulse the active region. if there are no regions, do nothing.
    
    in case there are multiple active regions, it `pulsar-pulse-region`
    only works w/ the first (topmost) region.
---
 pulsar.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/pulsar.el b/pulsar.el
index 54b7f0fa8e..06affcb141 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -311,6 +311,21 @@ pulse effect."
   (interactive)
   (pulsar--pulse))
 
+;;;###autoload
+(defun pulsar-pulse-region ()
+  "Temporarily highlight the active region if any.  Do nothing otherwise.
+When `pulsar-pulse' is non-nil (the default) make the highlight
+pulse before fading away.  The pulse effect is controlled by
+`pulsar-delay' and `pulsar-iterations'.
+
+NB:  If multiple regions are active, only the first one is impacted."
+  (interactive)
+  (when (region-active-p)
+    (let* ((bounds (region-bounds))
+           (region-start (caar bounds))
+           (region-end (cdar bounds)))
+      (pulsar--pulse nil nil region-start region-end))))
+
 ;;;###autoload
 (defun pulsar-highlight-line ()
   "Temporarily highlight the current line.