*scratch*

;;;_ , my-remove-duplicates

; This little fellow is great. It removes duplicates from region i.e.
; transforms "foo baz foo bar baz" into "foo baz bar".

(defun my-remove-duplicates (start end)
  (interactive "r")
  (save-excursion
    (goto-char start)
    (narrow-to-region start end)
    (let ((seen nil) (word nil) (s start))
      (while (forward-word)
        (when (setq word (word-at-point))
          (if (member word seen)
              (kill-region s (point))
            (setq seen (cons word seen)) ))
        (setq s (point))))
    (widen))
)