[Mew-dist 10881] Re: describe-bindings in mew-draft-mode

[Daiki Ueno]

Mito> 以前(20.4未満)の japanese-zenkaku-region では KATAKANA-ONLY 
Mito> フラグが存在せず、JIS X 0201 仮名だけ変換することができなかっ
Mito> たためだったと思います。

> なるほど、そうでした。。
> でも、以下のように category-table を一時的に変えてやれば
> しのげるような気もするのですが。。。
> ;; きちんと試していません。^_^;;

XEmacs と Emacs で、modify-category-entry の RESET 引数の
意味が異なるということに気付かず、悩んでしまいましたが、、

とりあえず、以下のようにすれば KATAKANA-ONLY 引数を使わずに
同様の変換が実現できると思います。

(if (fboundp 'japanese-zenkaku-region)
    (progn
      (define-category ?m "ASCII character set.");dummy
      (defvar mew-zenkaku-katakana-category-table
	(let ((table (copy-category-table)) (i 32))
	  (while (< i 127)
	    (modify-category-entry i (if mew-xemacs-p ?m ?a) table t)
	    (setq i (1+ i)))
	  table))
      ;; `japanese-zenkaku-region' may not accept 3rd arg.
      (defun mew-zenkaku-katakana-region (beg end)
	(let ((table (category-table)))
	  (unwind-protect
	      (progn
		(set-category-table mew-zenkaku-katakana-category-table)
		(japanese-zenkaku-region beg end))
	    (set-category-table table)))))
  (autoload 'zenkaku-katakana-region "jisx0201")
  (defun mew-zenkaku-katakana-region (start end)
    (save-excursion
      (zenkaku-katakana-region start end))))

;; きっとまだ、抜けがあるんじゃないかと思いますが。
-- 
Daiki Ueno (ueno at example.com)