;;; -*- Mode:LISP; Package:ZWEI; Readtable:ZL; Base:10 -*-

(DEFCOM COM-JUST-ONE-SPACE "Replace all whitespace around point with arg spaces" ()
  (LET ((SPACES-BEFORE (count-chars (BACKWARD-OVER *WHITESPACE-CHARS* (POINT))
				    (POINT))))
    (DELETE-AROUND *WHITESPACE-CHARS* (POINT))
    (DOTIMES (I *NUMERIC-ARG*)
      (INSERT (POINT) #/SP))
    (MOVE-BP (POINT) (FORWARD-CHAR (POINT) (MIN SPACES-BEFORE *NUMERIC-ARG*))))
  DIS-TEXT)