diff options
author | Matt Curtis <matt.r.curtis@gmail.com> | 2014-12-09 00:57:12 +0100 |
---|---|---|
committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2014-12-09 00:57:12 +0100 |
commit | 09ef13993b7a650039eb884c694660b17e61bb5c (patch) | |
tree | f0a1405f6de49d1cce512b5ef74736b074b07407 /lisp/cedet/pulse.el | |
parent | e9aaf969661d134fa7e1548817fc9a05fa6b1bfb (diff) | |
download | emacs-09ef13993b7a650039eb884c694660b17e61bb5c.tar.gz |
(pulse-momentary-highlight-one-line): Respect POINT
Fixes: debbugs:17260
* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Respect
the POINT argument.
Diffstat (limited to 'lisp/cedet/pulse.el')
-rw-r--r-- | lisp/cedet/pulse.el | 16 |
1 files changed, 9 insertions, 7 deletions
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. |