[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 dbfcdab: Unbreak 'reverse-region'

From: Eli Zaretskii
Subject: emacs-27 dbfcdab: Unbreak 'reverse-region'
Date: Mon, 22 Jun 2020 11:41:43 -0400 (EDT)

branch: emacs-27
commit dbfcdab83772a01a50ac819cc094c2cb3f8e089e
Author: Richard Copley <rcopley@gmail.com>
Commit: Eli Zaretskii <eliz@gnu.org>

    Unbreak 'reverse-region'
    * lisp/sort.el (reverse-region): Unbreak the function.  It was
    broken by a fix for bug#39376.
    Copyright-paperwork-exempt: yes
 lisp/sort.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/sort.el b/lisp/sort.el
index de0e1b9..f878db2 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -554,9 +554,6 @@ is the one that ends before END."
   (if (> beg end)
       (let (mid) (setq mid end end beg beg mid)))
-    (when (or (< (line-beginning-position) beg)
-              (< end (line-end-position)))
-      (user-error "There are no full lines in the region"))
     ;; Put beg at the start of a line and end and the end of one --
     ;; the largest possible region which fits this criteria.
     (goto-char beg)
@@ -568,6 +565,8 @@ is the one that ends before END."
     ;; reversal; it isn't difficult to add it afterward.
     (or (and (eolp) (not (bolp))) (progn (forward-line -1) (end-of-line)))
     (setq end (point-marker))
+    (when (<= end beg)
+      (user-error "There are no full lines in the region"))
     ;; The real work.  This thing cranks through memory on large regions.
     (let (ll (do t))
       (while do

reply via email to

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