diff --git a/lisp/org.el b/lisp/org.el index df8a5e609..a11a1e3d1 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)