ninjudd · August 10, 2012 20:38
diff --git a/compress-space.el b/compress-space.el
 (defun compress-space-forward ()
  "*Replaces all spaces, tabs and newlines after point with a single space."
  (interactive)
  (re-search-forward "[ \t\n\r]+\\([^ \t\n\r]\\)" nil t)
  (replace-match " \\1" nil nil))

 (defun compress-space-backward ()
  "*Replaces all spaces, tabs and newlines after point with a single space."
  (interactive)
  (re-search-backward "\\([^ \t\n\r]\\)[ \t\n\r]+" nil t)
  (replace-match "\\1 " nil nil))
	(defun compress-space-forward ()
	"*Replaces all spaces, tabs and newlines after point with a single space."
	(interactive)
	(re-search-forward "[ \t\n\r]+\\([^ \t\n\r]\\)" nil t)
	(replace-match " \\1" nil nil))

	(defun compress-space-backward ()
	"*Replaces all spaces, tabs and newlines after point with a single space."
	(interactive)
	(re-search-backward "\\([^ \t\n\r]\\)[ \t\n\r]+" nil t)
	(replace-match "\\1 " nil nil))