procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pulse-momentary-highlight-one-line: Act on visual line

Browse source 
* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line):  Act on
entire visual line, ignoring fields etc (bug#57876).
This commit is contained in:
Augusto Stoffel 2022-09-18 13:01:23 +02:00 • committed by Lars Ingebrigtsen
parent 06618e9435
commit 5332e4fecb
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/cedet/pulse.el
View file

@ -202,12 +202,8 @@ 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 (or point (point)))
(let ((start (line-beginning-position))
(end (save-excursion
(end-of-line)
(when (not (eobp))
(forward-char 1))
(point))))
(let ((start (progn (vertical-motion 0) (point)))
(end (progn (vertical-motion 1) (point))))
(pulse-momentary-highlight-region start end face))))
;;;###autoload