emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]