diff options
| author | Richard M. Stallman | 1998-07-29 02:54:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-07-29 02:54:35 +0000 |
| commit | 1dcbe23901b5c9008fda8233a9674cfeba76f114 (patch) | |
| tree | c31f6e9832f267823d11e9fe52ba9be049eaf5e9 | |
| parent | 9e175146b42260f38b10595d33e633fe6b55ca79 (diff) | |
| download | emacs-1dcbe23901b5c9008fda8233a9674cfeba76f114.tar.gz emacs-1dcbe23901b5c9008fda8233a9674cfeba76f114.zip | |
(iso-transl-define-keys): Don't test enable-multibyte-characters; use
the translated characters as specified in alist.
| -rw-r--r-- | lisp/international/iso-transl.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index faf268e93c3..c0cbcd50de5 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el | |||
| @@ -221,11 +221,7 @@ sequence VECTOR. (VECTOR is normally one character long.)") | |||
| 221 | ;; or `Alt-~ n' or `mute-asciitilde n'. | 221 | ;; or `Alt-~ n' or `mute-asciitilde n'. |
| 222 | (defun iso-transl-define-keys (alist) | 222 | (defun iso-transl-define-keys (alist) |
| 223 | (while alist | 223 | (while alist |
| 224 | (let ((translated-vec | 224 | (let ((translated-vec (cdr (car alist)))) |
| 225 | (let ((val (cdr (car alist)))) | ||
| 226 | (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) | ||
| 227 | (vector (+ (aref val 0) nonascii-insert-offset)) | ||
| 228 | val)))) | ||
| 229 | (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) | 225 | (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) |
| 230 | (let ((inchar (aref (car (car alist)) 0)) | 226 | (let ((inchar (aref (car (car alist)) 0)) |
| 231 | (vec (vconcat (car (car alist)))) | 227 | (vec (vconcat (car (car alist)))) |