バッファ内のスペースを全部消す

バッファ内のスペースを全部消す

(defun remove-all-spaces ()
  "remove all spaces in buffer"
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward " " nil t)
      (replace-match "" nil t))))