linux 美国键盘6,Emacs，Linux和国际键盘布局

这是另一种使用OS语言的解决方案，它基于syndikat的答案。

一些关键翻译缺失，但应该很容易添加它们。

;; USAGE:

;; Put in your .emacs:

;;

;; (translate-keystrokes-ru->en)

;; (add-hook 'text-mode-hook

;; (lambda() (literal-insert-mode 1)))

;;

;; Only buffers with literal-insert-mode active will be sensitive to the

;; environment language. Prefixed keybindings will still be usable.

(defun translate-keystrokes-ru->en()

"Make emacs output english characters, regardless whether

the OS keyboard is english or russian"

(flet ((make-key-stroke (prefix char)

(eval `(kbd ,(if (and (string-match "^C-" prefix)

(string-match "[A-Z]" (string char)))

(concat "S-" prefix (string (downcase char)))

(concat prefix (string char)))))))

(let ((case-fold-search nil)

(keys-pairs (mapcar* 'cons

"йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖ\ЭЯЧСМИТЬБЮ№"

"qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>#"))

(prefixes '("" "s-" "M-" "M-s-"

"C-" "C-s-" "C-M-" "C-M-s-")))

(mapc (lambda (prefix)

(mapc (lambda (pair)

(define-key key-translation-map

(make-key-stroke prefix (car pair))

(make-key-stroke prefix (cdr pair))))

keys-pairs))

prefixes))))

(defun literal-insert()

(interactive)

(insert-char last-input-event 1))

(define-minor-mode literal-insert-mode

"Make emacs output characters corresponging to the OS keyboard,

ignoring the key-translation-map"

:keymap (let ((new-map (make-sparse-keymap))

(english-chars "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>#"))

(mapc (lambda (char)

(define-key new-map (string char)

'literal-insert))

english-chars)

new-map))