From 09ef13993b7a650039eb884c694660b17e61bb5c Mon Sep 17 00:00:00 2001 From: Matt Curtis Date: Tue, 9 Dec 2014 00:57:12 +0100 Subject: [PATCH] (pulse-momentary-highlight-one-line): Respect POINT Fixes: debbugs:17260 * lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Respect the POINT argument. --- lisp/cedet/ChangeLog | 5 +++++ lisp/cedet/pulse.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index d797132dd34..c132a423f19 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,8 @@ +2014-12-08 Matt Curtis (tiny change) + + * pulse.el (pulse-momentary-highlight-one-line): Respect the POINT + argument (bug#17260). + 2014-11-09 Eric Ludlam * semantic.el (semantic-mode): Add/remove 3 diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index e2a48a428a3..10ede62e747 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -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. -- 2.39.2