From: Stephen Berman <stephen.berman@gmx.net>
Date: Thu, 14 Jul 2016 07:55:28 +0000 (+0200)
Subject: Fix delete-duplicate-lines
X-Git-Tag: emacs-26.0.90~1840^2~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8e1414c0d66903884059361ecc8ec70da37cf35;p=emacs.git

Fix delete-duplicate-lines

* lisp/sort.el (delete-duplicate-lines): Delete duplicate
first line when operating backward (bug#23863).
---

diff --git a/lisp/sort.el b/lisp/sort.el
index 4d7311f1e51..8bc71388ad5 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -596,7 +596,7 @@ is non-nil, it also prints a message describing the number of deletions."
 	   (equal current-prefix-arg '(64))
 	   t)))
   (let ((lines (unless adjacent (make-hash-table :test 'equal)))
-	line prev-line
+	line prev-line first-line
 	(count 0)
 	(beg (copy-marker beg))
 	(end (copy-marker end)))
@@ -604,8 +604,9 @@ is non-nil, it also prints a message describing the number of deletions."
       (goto-char (if reverse end beg))
       (if (and reverse (bolp)) (forward-char -1))
       (while (if reverse
-		 (and (> (point) beg) (not (bobp)))
+		 (not first-line)
 	       (and (< (point) end) (not (eobp))))
+	(setq first-line (and reverse (or (<= (point) beg) (bobp))))
 	(setq line (buffer-substring-no-properties
 		    (line-beginning-position) (line-end-position)))
         (if (and keep-blanks (string= "" line))