Function: mantemp-sort-and-unique-lines

mantemp-sort-and-unique-lines is a byte-compiled function defined in mantemp.el.gz.

Signature

(mantemp-sort-and-unique-lines)

Documentation

Eliminate all consecutive duplicate lines in the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/mantemp.el.gz
(defun mantemp-sort-and-unique-lines ()
  "Eliminate all consecutive duplicate lines in the buffer."
  (save-excursion
    (message "Sorting")
    (sort-regexp-fields nil "^.*$" "\\&"
			(point-min)
			(point-max))
    (goto-char (point-min))
    (message "Removing consecutive duplicate lines")
    (while (re-search-forward "\\(^.+\\)\n\\1" nil t nil)
      (progn
	(forward-line -1)
	(beginning-of-line)
	(delete-region (point) (progn (forward-line 1) (point)))))))