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

Fixes: debbugs:17260
* lisp/cedet/pulse.el (pulse-momentary-highlight-one-line): Respect
the POINT argument.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index d797132dd34c14643e894140bbbb90eb5b4e54b3..c132a423f19e9866db99f253165ef6c17bd3f863 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -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

diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index e2a48a428a3b76ad6ca0c9b0daae7c05272593a3..10ede62e7472d3b857b7586bd0b283169a8dcbcc 100644 (file)
--- 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.