カーソル位置の前後にある から
までのテキストを fill-region したくて
次のような関数を書きました。しかし「Wrong type argument: arrayp, 9941」という
エラーになってしまいます。fill-region のエラーみたいですが原因が分かりません。
何が悪いのでしょうか。スレ/板違いだったらごめんなさい。
(defun html-fill-paragraph ()
(interactive)
(let (paragraph-start paragraph-end)
(save-excursion
(if (re-search-backward "^$" nil t)
(setq paragraph-start (match-end 0))))
(save-excursion
(if (re-search-forward "^
$" nil t)
(setq paragraph-end (match-beginning 0))))
(if (and (integerp paragraph-start)
(integerp paragraph-end))
(fill-region paragraph-start paragraph-end))))
見やすいように行頭のスペースを全角に変えてあります。