[xyzzy:00302] Re: text-newline-midashi-a

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

    Thu, 27 Aug 1998 10:53:54 +0900 の
   “[xyzzy:00300] Re: text-newline-midashi-a”
    への返事です.

| のようになっているときの (日字)+(英字) の間ということ
| がわかりました。

確かに(^^;

| あと、出来上がっている文の途中で改めて改行させた
| いとき、そこで改行してくれません。

わがままだなぁ(^^; 結局、こうですね。

(defun text-newline-midashi-and-create-spaces ()
  (interactive)
  (let ((current-midashi
	 (save-excursion
	   (goto-bol)
	   (and (looking-at *gyoto-mark*)
		(following-char)))))
    (delete-trailing-spaces)
    (insert #\LFD)
    (when current-midashi
      (insert current-midashi)))
  (save-excursion
    (save-restriction
      (narrow-to-region (progn (goto-eol) (point))
			(progn (forward-line -1) (point)))
      (replace-buffer "\\([\X8200-\X9fff\Xe000-\Xfcff]\\) *\\([A-Za-z0-9_]\\)"
		      "\\1 \\2" :regexp t)
      (goto-char (point-min))
      (replace-buffer "\\([A-Za-z0-9_]\\) *\\([\X8200-\X9fff\Xe000-\Xfcff]\\)"
		      "\\1 \\2" :regexp t)
      (goto-char (point-min))
      (replace-buffer "\\([\X8200-\X9fff\Xe000-\Xfcff]\\) +\\([\X8200-\X9fff\Xe000-\Xfcff]\\)"
		      "\\1\\2" :regexp t)))
  t)

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx