emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 09ef139: (pulse-momentary-highlight-one-line): Resp


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 09ef139: (pulse-momentary-highlight-one-line): Respect POINT
Date: Mon, 08 Dec 2014 23:57:32 +0000

branch: master
commit 09ef13993b7a650039eb884c694660b17e61bb5c
Author: Matt Curtis <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    (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 d797132..c132a42 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-08  Matt Curtis  <address@hidden>  (tiny change)
+
+       * pulse.el (pulse-momentary-highlight-one-line): Respect the POINT
+       argument (bug#17260).
+
 2014-11-09  Eric Ludlam  <address@hidden>
 
        * semantic.el (semantic-mode): Add/remove 3
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index e2a48a4..10ede62 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]