[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/diff-hl 8bf96cd5dc 1/2: Use line-beginning-position ins
From: |
ELPA Syncer |
Subject: |
[elpa] externals/diff-hl 8bf96cd5dc 1/2: Use line-beginning-position instead of obsolete point-at-bol |
Date: |
Mon, 19 Sep 2022 06:57:40 -0400 (EDT) |
branch: externals/diff-hl
commit 8bf96cd5dc410e015e408c9a802cf8eedb65c06a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Use line-beginning-position instead of obsolete point-at-bol
Likewise use line-end-position instead of obsolete point-at-eol.
Obsolete since Emacs 29 / b7e867b841f47dcff3aeaef9b5608a237386ce70.
---
diff-hl-inline-popup.el | 2 +-
diff-hl-show-hunk.el | 4 +++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/diff-hl-inline-popup.el b/diff-hl-inline-popup.el
index 3e9f4172ec..bee6ce10e3 100644
--- a/diff-hl-inline-popup.el
+++ b/diff-hl-inline-popup.el
@@ -247,7 +247,7 @@ is closed."
(when (< (diff-hl-inline-popup--compute-content-height 99) 2)
(user-error "There is no enough vertical space to show the inline popup"))
- (let* ((the-point (or point (point-at-eol)))
+ (let* ((the-point (or point (line-end-position)))
(the-buffer (current-buffer))
(overlay (make-overlay the-point the-point the-buffer)))
(overlay-put overlay 'phantom t)
diff --git a/diff-hl-show-hunk.el b/diff-hl-show-hunk.el
index 00f6d92a74..c3adcb539d 100644
--- a/diff-hl-show-hunk.el
+++ b/diff-hl-show-hunk.el
@@ -179,7 +179,9 @@ Returns a list with the buffer and the line number of the
clicked line."
;; Highlight the clicked line
(goto-char point-in-buffer)
- (setq line-overlay (make-overlay (point-at-bol) (min (point-max) (1+
(point-at-eol)))))
+ (setq line-overlay (make-overlay (line-beginning-position)
+ (min (point-max)
+ (1+ (line-end-position)))))
;; diff-mode
(diff-mode)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/diff-hl 8bf96cd5dc 1/2: Use line-beginning-position instead of obsolete point-at-bol,
ELPA Syncer <=