Attachment 6219 Details for Bug 30528 – Один из вариантов реализации

Один из вариантов реализации

r-i-m.el (text/plain), 1.03 KB, created by Evgenii Terechkov on 2015-01-11 19:56:17 MSK

(hide)

Description:

Filename:

MIME Type:

Creator: Evgenii Terechkov

Created: 2015-01-11 19:56:17 MSK

Size: 1.03 KB

patch

obsolete

>;; map all keys in national language to english keys for keybindings
>(defun reverse-input-method (input-method)
>  "Build the reverse mapping of single letters from INPUT-METHOD."
>  (interactive
>   (list (read-input-method-name "Use input method (default current): ")))
>  (if (and input-method (symbolp input-method))
>      (setq input-method (symbol-name input-method)))
>  (let ((current current-input-method)
>	(modifiers '(nil (control) (meta) (control meta))))
>    (when input-method
>      (activate-input-method input-method))
>    (when (and current-input-method quail-keyboard-layout)
>      (dolist (map (cdr (quail-map)))
>	(let* ((to (car map))
>	       (from (quail-get-translation
>		      (cadr map) (char-to-string to) 1)))
>	  (when (and (characterp from) (characterp to))
>	    (dolist (mod modifiers)
>	      (define-key local-function-key-map
>		(vector (append mod (list from)))
>		(vector (append mod (list to)))))))))
>    (when input-method
>      (activate-input-method current))))
>
>(reverse-input-method (make-symbol default-input-method))

Actions: View

Attachments on bug 30528: 6219