help-gnu-emacs
[Top][All Lists]
Advanced

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

Re: Removing duplicated lines


From: Dani Moncayo
Subject: Re: Removing duplicated lines
Date: Thu, 29 Nov 2012 13:18:34 +0100

> Something like this ...
>
>     (defun delete-duplicate-lines (beg end)
>       (interactive "r")
>       (let ((lines (split-string (buffer-substring beg end) "\n")))
>         (delete-region beg end)
>         (insert
>          (mapconcat #'identity (delete-dups lines) "\n"))))

Seem to do the job, indeed.  Thanks!

It could be improved by accepting a prefix argument to control an
optional reordering of the region (as side effect):
* If the argument is > 0 --> Region sorted in ascending order.
* If the argument is < 0 --> Region sorted in descending order.
* If the argument is 0 or nil --> Region is left unsorted.

-- 
Dani Moncayo



reply via email to

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