Mercurial > emacs
changeset 22842:2398b380208e
(iso-transl-define-keys): Don't test enable-multibyte-characters; use
the translated characters as specified in alist.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 Jul 1998 02:54:35 +0000 |
| parents | 330629423307 |
| children | 63f6e25f0cbd |
| files | lisp/international/iso-transl.el |
| diffstat | 1 files changed, 1 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/iso-transl.el Tue Jul 28 23:10:44 1998 +0000 +++ b/lisp/international/iso-transl.el Wed Jul 29 02:54:35 1998 +0000 @@ -221,11 +221,7 @@ ;; or `Alt-~ n' or `mute-asciitilde n'. (defun iso-transl-define-keys (alist) (while alist - (let ((translated-vec - (let ((val (cdr (car alist)))) - (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) - (vector (+ (aref val 0) nonascii-insert-offset)) - val)))) + (let ((translated-vec (cdr (car alist)))) (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) (let ((inchar (aref (car (car alist)) 0)) (vec (vconcat (car (car alist))))