Re: Using quail input methods to translate buffer text.

[Kenichi Handa <handa@m17n.org>]

In article <87k66rlqys.fsf@heslin.eclipse.co.uk>, Peter Heslin <pj@heslin.eclipse.co.uk> writes:

> I have some ascii text that I want to convert to utf-8, and it is
> encoded in a manner just like one of the quail input methods.  Can
> anyone tell me if there is a function that will take text from a buffer
> and treat it as if it were input as keystrokes to quail, and then output
> the result in Unicode?

We don't have such a function, but this will work in many
cases.

(defun temp (input-method key-string)
  (let ((str ""))
    (activate-input-method input-method)
    (setq unread-command-events (string-to-list key-string))
    (while unread-command-events
      (let ((key (car unread-command-events))
	    events)
	(setq unread-command-events (cdr unread-command-events))
	(setq events (funcall input-method-function key))
	(dolist (elt events)
	  (if (integerp elt)
	      (setq str (concat str (string elt)))))))
    (activate-input-method nil)
    (decode-coding-string (encode-coding-string str 'utf-8) 'utf-8)))

For example:
(temp "cyrillic-yawerty" "abcd") => "абцд"

You don't need the last decode-coding-string if you use
emacs-unicode-2.

---
Kenichi Handa
handa@m17n.org