Navi2ch for Emacs (Part 9)
>>358
バグってたんで、やり直し。
(defun my-navi2ch-space-to-nbsp ()
(save-excursion
(goto-char (navi2ch-message-header-end))
(forward-line)
(save-restriction
(narrow-to-region (point) (point-max))
(untabify (point-min) (point-max))
(while (re-search-forward "^ " nil t)
(replace-match " "))
(goto-char (point-min))
(while (search-forward " " nil t)
(replace-match " ")))))
バグってたんで、やり直し。
(defun my-navi2ch-space-to-nbsp ()
(save-excursion
(goto-char (navi2ch-message-header-end))
(forward-line)
(save-restriction
(narrow-to-region (point) (point-max))
(untabify (point-min) (point-max))
(while (re-search-forward "^ " nil t)
(replace-match " "))
(goto-char (point-min))
(while (search-forward " " nil t)
(replace-match " ")))))
|
|
|