[xyzzy:00307] Re: text-newline-midashi-and-create-spaces

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

みなさん、こんにちは。

下の2つは、バッファあるいはリージョン内の日本語と英語の
間にスペースを空けるためのものです。text-newline-midashi-
and-create-spaces から不要部分を削除しただけのものです。
おれはくっついてないと気持ちが悪いという人には不要です。

(defun text-buffer-create-spaces ()
  (interactive)
  (save-excursion
    (save-restriction
      (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)

(defun text-region-create-spaces (from to)
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region from to)
      (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)

わざわざアップロードする必要もないとは思いましたが、一応記念
ということで...。

点検、お願いします。

--------
須田誠也（上の作者は私ではありません）
EZU11330@xxxxxxxxxxx