[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