Function: fixup-whitespace
fixup-whitespace is an interactive and byte-compiled function defined
in simple.el.gz.
Signature
(fixup-whitespace)
Documentation
Fixup white space between objects around point.
Leave one space or none, according to the context.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun fixup-whitespace ()
"Fixup white space between objects around point.
Leave one space or none, according to the context."
(interactive "*")
(save-excursion
(delete-horizontal-space)
(if (or (looking-at "^\\|$\\|\\s)")
(save-excursion (forward-char -1)
(looking-at "$\\|\\s(\\|\\s'")))
nil
(insert ?\s))))