Meadowで円マークを入力

MeadowでBDFフォントを使っている場合、例えばメールなどで円マークとバックスラッシュを区別して表示できるようになっている。

長年「表示はできるけど入力はみんなどうやってるんだろう?」と思っていたのだが、Mew-Win32のメールでは以前話題にあがっていたようだ。

[Mew-Win32 01530] Re: non ISO-2022-JP (Re: fiber, movemail on meadow1.04a1)

(define-key global-map "C-x9" 'jisx0201-input)
(defun jisx0201-input (&optional string)
  (interactive "sInput(ASCII only) ")
  (let ((count (length string))
	(pos 0))
    (while (> count 0)
      (cond
       ((functionp 'char-to-int)
	(insert (make-char 'latin-jisx0201 (char-to-int (aref string pos)))))
       ((functionp 'make-char)
	(insert (make-char 'latin-jisx0201 (aref string pos))))
       (t
	(insert (make-character lc-roman (aref string pos)))))
      (setq count (1- count))
      (setq pos (1+ pos)))))