[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 09ef139: (pulse-momentary-highlight-one-line): Respect POINT,
Lars Ingebrigtsen <=