branch: externals/pulsar
commit 0b0e5b6a6bc019d20e9aa4dbdcfd3fc6c315d620
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Adapt pulsar--post-command-pulse to work without the discontinued
pulsar-pulse-region
---
pulsar.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/pulsar.el b/pulsar.el
index 9543bef817..85b42670fd 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -670,7 +670,10 @@ Changes are defined by BEG, END, LEN:
;; buffer changes; e.g., kill-ring-save.
((or (memq this-command pulsar-pulse-region-functions)
(memq real-this-command pulsar-pulse-functions))
- (pulsar-pulse-region)))))
+ (let ((locus (if (region-active-p)
+ (cons (region-beginning) (region-end))
+ (pulsar--get-line-boundaries))))
+ (pulsar--create-pulse locus pulsar-face))))))
(make-obsolete 'pulsar-setup nil "0.3.0")
