[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-transclusion 2eb0a5d8fe 2/5: fix: Use end-pos in or
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-transclusion 2eb0a5d8fe 2/5: fix: Use end-pos in org-transclusion-content-range-of-lines |
Date: |
Wed, 7 Feb 2024 15:58:28 -0500 (EST) |
branch: externals/org-transclusion
commit 2eb0a5d8fefb8376761d7cd2dacf9e31a167f41b
Author: Joseph Turner <joseph@breatheoutbreathe.in>
Commit: Noboru Ota <me@nobiot.com>
fix: Use end-pos in org-transclusion-content-range-of-lines
---
org-transclusion-src-lines.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/org-transclusion-src-lines.el b/org-transclusion-src-lines.el
index 41dd240427..0b2ed98559 100644
--- a/org-transclusion-src-lines.el
+++ b/org-transclusion-src-lines.el
@@ -178,8 +178,8 @@ it means from line 10 to the end of file."
;;; This `cond' means :end prop has priority over the end
;;; position of the range. They don't mix.
(end (cond
- ((when thing-at-point end-pos)
- (when (and end-pos (> end-pos beg))
+ ((when thing-at-point end-pos))
+ ((when (and end-pos (> end-pos beg))
end-pos))
((if (zerop lend) (point-max)
(goto-char start-pos)