From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 18 Sep 2021 14:12:56 +0000 (+0200)
Subject: Make argument optional in pulse-momentary-highlight-one-line
X-Git-Tag: emacs-28.0.90~860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c19576759f3468b5653241633b0ea85469f6bb06;p=emacs.git

Make argument optional in pulse-momentary-highlight-one-line

* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Make
POINT optional (bug#50642) so that the function can be used more
easily from some hook functions.
---

diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index 7928fa1bf42..b0269440291 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -195,11 +195,13 @@ Optional argument FACE specifies the face to do the highlighting."
   (remove-hook 'pre-command-hook #'pulse-momentary-unhighlight))
 
 ;;;###autoload
-(defun pulse-momentary-highlight-one-line (point &optional face)
+(defun pulse-momentary-highlight-one-line (&optional point face)
   "Highlight the line around POINT, unhighlighting before next command.
+If POINT is nil or missing, the current point is used instead.
+
 Optional argument FACE specifies the face to do the highlighting."
   (save-excursion
-    (goto-char point)
+    (goto-char (or point (point)))
     (let ((start (point-at-bol))
           (end (save-excursion
                  (end-of-line)