(defun u:remove-duplicates (beg end)
(interactive "r")
(let* ((str (mapconcat 'identity
(remove-duplicates
(split-string (buffer-substring beg end) "[\n\r]+" t)
:test 'string=)
"\n")))
(delete-region beg end)
(insert str)))
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment