branch: externals/pulsar
commit ff93a2dc047ed0aaaea0a6809bc0166a230b707a
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Simplify pulsar-highlight-temporarily-dwim
---
pulsar.el | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/pulsar.el b/pulsar.el
index 9c494f939b..9543bef817 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -507,13 +507,9 @@ The region may also be a rectangle.
For lines, do the same as `pulsar-highlight-line-temporarily'."
(interactive)
- (cond
- ((bound-and-true-p rectangle-mark-mode)
- (pulsar--highlight-rectangle))
- ((region-active-p)
- (pulsar--pulse :no-pulse pulsar-highlight-face (region-beginning)
(region-end)))
- (t
- (pulsar--pulse :no-pulse pulsar-highlight-face))))
+ (if (bound-and-true-p rectangle-mark-mode)
+ (pulsar--highlight-rectangle)
+ (call-interactively 'pulsar-highlight-temporarily)))
;;;###autoload
(defun pulsar-highlight-permanently (locus)
