diff options
| author | Augusto Stoffel <arstoffel@gmail.com> | 2022-09-18 13:01:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-18 13:01:23 +0200 |
| commit | 5332e4fecb4dece0f15c1ffcba422864b73459ef (patch) | |
| tree | bbc7580857c5d5c03b8a128121f3e52f9156f6d6 /lisp/cedet | |
| parent | 06618e9435a65ff1c3be864d5433ec136c2ffc0e (diff) | |
| download | emacs-5332e4fecb4dece0f15c1ffcba422864b73459ef.tar.gz emacs-5332e4fecb4dece0f15c1ffcba422864b73459ef.tar.bz2 emacs-5332e4fecb4dece0f15c1ffcba422864b73459ef.zip | |
pulse-momentary-highlight-one-line: Act on visual line
* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Act on
entire visual line, ignoring fields etc (bug#57876).
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/pulse.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 9941f2a0cb7..0564cf6d048 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -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 |