メモ:末尾の空白を除去

元からあったような気がするんだけどね。見つからないんだよね。末尾の空白を除去するやつ。困って書いてしまった。

(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))
      ))
  )

あまりきれいじゃないかも。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です