[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 0725237eed: org: Small simplification
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 0725237eed: org: Small simplification |
Date: |
Tue, 18 Jan 2022 03:57:37 -0500 (EST) |
branch: externals/org
commit 0725237eedb451aa767588bd47c487306dda5f16
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@gmail.com>
org: Small simplification
* lisp/org.el (org-metaup, org-metadown): Remove unnecessary min/max
computation.
---
lisp/org.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index df8a5e6098..a11a1e3d17 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -17468,10 +17468,10 @@ for more information."
((run-hook-with-args-until-success 'org-metaup-hook))
((org-region-active-p)
(let* ((a (save-excursion
- (goto-char (min (region-beginning) (region-end)))
+ (goto-char (region-beginning))
(line-beginning-position)))
(b (save-excursion
- (goto-char (max (region-beginning) (region-end)))
+ (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position))))
(c (save-excursion
(goto-char a)
@@ -17501,10 +17501,10 @@ commands for more information."
((run-hook-with-args-until-success 'org-metadown-hook))
((org-region-active-p)
(let* ((a (save-excursion
- (goto-char (min (region-beginning) (region-end)))
+ (goto-char (region-beginning))
(line-beginning-position)))
(b (save-excursion
- (goto-char (max (region-beginning) (region-end)))
+ (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position))))
(c (save-excursion
(goto-char b)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 0725237eed: org: Small simplification,
ELPA Syncer <=