(defun remove-excess-whitespace...

By Hal Canary, 2008-10-03 21:02:56 (link)
#computers-code

I always meant to go ahead and fix this function so it did what I want. Now it uses proper regex. See the old version, too.

;; ~/.emacs ;;
(defun remove-excess-whitespace () (interactive)
  (auto-mega-replace  "\\( \\|\t\\)$" ""))
(defun auto-mega-replace (arg1 arg2)
  (save-excursion
    (beginning-of-buffer)
    (while (re-search-forward arg1)
      (beginning-of-buffer)
      (perform-replace arg1 arg2
        nil t nil)
      (beginning-of-buffer))))

(back)