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

(pulse-momentary-highlight-one-line): Respect POINT

Browse source 
Fixes: debbugs:17260

* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Respect
the POINT argument.
This commit is contained in:
Matt Curtis 2014-12-09 00:57:12 +01:00 • committed by Lars Magne Ingebrigtsen
parent e9aaf96966
commit 09ef13993b
2 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/cedet/ChangeLog
View file

@ -1,3 +1,8 @@
2014-12-08 Matt Curtis <matt.r.curtis@gmail.com> (tiny change)
* pulse.el (pulse-momentary-highlight-one-line): Respect the POINT
argument (bug#17260).
2014-11-09 Eric Ludlam <zappo@gnu.org>
* semantic.el (semantic-mode): Add/remove 3

16
lisp/cedet/pulse.el
View file

@ -227,13 +227,15 @@ Optional argument FACE specifies the face to do the highlighting."
(defun pulse-momentary-highlight-one-line (point &optional face)
"Highlight the line around POINT, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting."
(let ((start (point-at-bol))
(end (save-excursion
(end-of-line)
(when (not (eobp))
(forward-char 1))
(point))))
(pulse-momentary-highlight-region start end face)))
(save-excursion
(goto-char point)
(let ((start (point-at-bol))
(end (save-excursion
(end-of-line)
(when (not (eobp))
(forward-char 1))
(point))))
(pulse-momentary-highlight-region start end face))))
(defun pulse-momentary-highlight-region (start end &optional face)
"Highlight between START and END, unhighlighting before next command.