[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master eb59b59 1/3: Fix beacon--movement-> simplification (69843d
From: |
Artur Malabarba |
Subject: |
[elpa] master eb59b59 1/3: Fix beacon--movement-> simplification (69843d3) |
Date: |
Wed, 21 Oct 2015 10:49:11 +0000 |
branch: master
commit eb59b593c81c63fb78e6de73daa0edbfebcaa6fd
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>
Fix beacon--movement-> simplification (69843d3)
---
beacon.el | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/beacon.el b/beacon.el
index 777e809..800c958 100644
--- a/beacon.el
+++ b/beacon.el
@@ -279,10 +279,11 @@ If DELTA is nil, return nil."
;; lines. `count-screen-lines' is too slow if the movement had
;; thousands of lines.
(save-excursion
- (goto-char (min beacon--previous-place (point)))
- (vertical-motion delta)
- (> (max (point) beacon--previous-place)
- (line-beginning-position)))))
+ (let ((p (point)))
+ (goto-char (min beacon--previous-place p))
+ (vertical-motion delta)
+ (> (max p beacon--previous-place)
+ (line-beginning-position))))))
(defun beacon--maybe-push-mark ()
"Push mark if it seems to be safe."