uniq

[Tak Ota]

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))))))))