Voder-Vocoder

The Log of Hal Canary

Navigation: Home | THE LOG | Log Archives | Resume | Contact Info | Public Key | SSL | Math Applets | Site Map | WP Backend | RSS2 | Atom

« | »

(defun remove-excess-whitespace...

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

Hal Canary | Computers & Code | 2008-10-03 21:02:56 UTC
Permanent Link Comments Off | No Comments

Comments are closed.
Email me your comments — h3 at halcanary dot org.

Copyright 1997-2007 by Hal Canary.
mailto: h3 at halcanary dot org
xmpp:halcanary@jabber.org
aim:halwcanary
http://halcanary.org