uniq

[Tak Ota <Takaaki.Ota@am.sony.com>]

Do we have something equivalent to the next command?  I know the name
is bad as it is not same as UNIQ(1).  It works better because sorting
is not required.

-Tak

;;
;; uniq
;;
(defun uniq ()
  "Omit duplicated lines."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (not (= (point) (point-max)))
      (let* ((start (point))
	     (str (format "^%s"
			  (regexp-quote
			   (buffer-substring start
					     (progn (forward-line 1) (point)))))))
	(save-excursion
	  (while (re-search-forward str nil t)
	    (delete-region (match-beginning 0) (match-end 0))))))))