ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org: Small simplification 

* lisp/org.el (org-metaup, org-metadown): Remove unnecessary min/max computation.
This commit is contained in:
Marco Wahl 2022-01-18 09:47:53 +01:00
parent 9b58ead467
commit 0725237eed
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -17468,10 +17468,10 @@ for more information."
((run-hook-with-args-until-success 'org-metaup-hook)) ((run-hook-with-args-until-success 'org-metaup-hook))
((org-region-active-p) ((org-region-active-p)
(let* ((a (save-excursion (let* ((a (save-excursion
(goto-char (min (region-beginning) (region-end))) (goto-char (region-beginning))
(line-beginning-position))) (line-beginning-position)))
(b (save-excursion (b (save-excursion
(goto-char (max (region-beginning) (region-end))) (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position)))) (if (bolp) (1- (point)) (line-end-position))))
(c (save-excursion (c (save-excursion
(goto-char a) (goto-char a)
@ -17501,10 +17501,10 @@ commands for more information."
((run-hook-with-args-until-success 'org-metadown-hook)) ((run-hook-with-args-until-success 'org-metadown-hook))
((org-region-active-p) ((org-region-active-p)
(let* ((a (save-excursion (let* ((a (save-excursion
(goto-char (min (region-beginning) (region-end))) (goto-char (region-beginning))
(line-beginning-position))) (line-beginning-position)))
(b (save-excursion (b (save-excursion
(goto-char (max (region-beginning) (region-end))) (goto-char (region-end))
(if (bolp) (1- (point)) (line-end-position)))) (if (bolp) (1- (point)) (line-end-position))))
(c (save-excursion (c (save-excursion
(goto-char b) (goto-char b)