branch: externals/pulsar
commit 6c033b037a533748f8108f84a23c10086a90bdc5
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Refine pulsar--post-command-pulse to still behave like it did before
---
pulsar.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/pulsar.el b/pulsar.el
index 512421afd0..dc51b5110d 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -665,15 +665,16 @@ Changes are defined by BEG, END, LEN:
(let ((beg (apply #'min (mapcar #'car pulsar--pulse-region-changes)))
(end (apply #'max (mapcar #'cdr pulsar--pulse-region-changes))))
(setq pulsar--pulse-region-changes nil)
- (pulsar--create-pulse (cons beg end) pulsar-region-change-face)))
+ (pulsar--create-pulse
+ (if (eq beg end)
+ (pulsar--get-line-boundaries)
+ (cons beg end))
+ pulsar-region-change-face)))
;; Pulse the selected region for commands that did not cause
;; buffer changes; e.g., kill-ring-save.
((or (memq this-command pulsar-pulse-region-functions)
(memq real-this-command pulsar-pulse-functions))
- (let ((locus (if (region-active-p)
- (cons (region-beginning) (region-end))
- (pulsar--get-line-boundaries))))
- (pulsar--create-pulse locus pulsar-face))))))
+ (call-interactively 'pulsar-highlight-pulse)))))
(make-obsolete 'pulsar-setup nil "0.3.0")
