From: Matt Curtis <matt.r.curtis@gmail.com>
Date: Mon, 8 Dec 2014 23:57:12 +0000 (+0100)
Subject: (pulse-momentary-highlight-one-line): Respect POINT
X-Git-Tag: emacs-25.0.90~2635^2~145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09ef13993b7a650039eb884c694660b17e61bb5c;p=emacs.git

(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 d797132dd34..c132a423f19 100644
--- 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 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.