元からあったような気がするんだけどね。見つからないんだよね。末尾の空白を除去するやつ。困って書いてしまった。
(defun my-delete-space-region (start end) "delete tailspace" (interactive "*r") (save-excursion (save-restriction (narrow-to-region end start) (goto-char (point-min)) (while (not (eobp)) (end-of-line) (delete-horizontal-space) (forward-line 1)) )) ) (defun my-delete-space-buffer () "delete tailspace" (interactive) (save-excursion (save-restriction (goto-char 0) (while (not (eobp)) (end-of-line) (delete-horizontal-space) (forward-line 1)) )) )
あまりきれいじゃないかも。