branch: externals/pulsar
commit 10654537ce4e9d96a0bff05ae2f0b38f419e3c24
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Bring back the pulsar-pulse-line because it is needed for hooks without
arguments
---
pulsar.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/pulsar.el b/pulsar.el
index 6a1659c056..24025c05e6 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -382,18 +382,20 @@ LOCUS is a cons cell with two buffer positions."
(overlay-put overlay 'window (frame-selected-window))
(pulse-momentary-highlight-overlay overlay face)))
-(define-obsolete-function-alias
- 'pulsar-pulse-line
- 'pulsar-highlight-pulse
- "1.3.0")
-
(define-obsolete-function-alias
'pulsar-pulse-region
'pulsar-highlight-pulse
"1.3.0")
;;;###autoload
-(defun pulsar-highlight-pulse (locus)
+(defun pulsar-pulse-line ()
+ "Create a pulse highlight for the current line.
+Also see `pulsar-highlight-pulse'."
+ (interactive)
+ (pulsar--create-pulse (pulsar--get-line-boundaries) pulsar-face))
+
+;;;###autoload
+(defun pulsar-highlight-pulse (&optional locus)
"Highlight the current LOCUS by pulsing it.
To pulse is to add a colour and then gradually fade it away. The pulse
is subject to `pulsar-delay' and `pulsar-iterations'.
