Commit 09ef1399 authored by Matt Curtis's avatar Matt Curtis Committed by Lars Magne Ingebrigtsen
Browse files

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

Fixes: debbugs:17260

* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Respect
the POINT argument.
parent e9aaf969
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
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment