fixup-whitespace (snippet)

[Andreas Röhler]

A fixup-whitespace working over multiple lines

(defun fixup-whitespace ()
  "Fixup white space between objects around point.
Leave one space or none, according to the context."
  (interactive "*")
  (save-excursion
    ;; 2007-11-28 address@hidden changed section start    
    (skip-chars-backward " \t\r\n\f")
    (set-mark (point))
    (skip-chars-forward " \t\r\n\f")
    (kill-region (point) (mark))
;;;     (delete-horizontal-space)
    ;; 2007-11-28 address@hidden changed section end    
    (if (or (looking-at "^\\|\\s)")
            (save-excursion (forward-char -1)
                            (looking-at "$\\|\\s(\\|\\s'")))
        nil
      (insert ?\s))))

Enjoy!

Andreas Röhler