Advertisement
clairec

Untitled

Jul 3rd, 2017
256
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.13 KB | None | 0 0
  1. (defun cut-space ()
  2.   "delete excess spaces"
  3.   (interactive)
  4.   (while (eq (char-after (+ (point) 1)) " ")
  5.     (delete-char)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement