Mercurial > emacs
comparison lisp/international/iso-transl.el @ 17847:cc69961d65c6
(iso-transl-define-keys): Use nonascii-insert-offset.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 16 May 1997 08:04:19 +0000 |
parents | fa666ca256c6 |
children | ef38c9fcbc28 |
comparison
equal
deleted
inserted
replaced
17846:c427501449a1 | 17847:cc69961d65c6 |
---|---|
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 |
225 (if enable-multibyte-characters | 225 (if enable-multibyte-characters |
226 (vector (+ (aref (cdr (car alist)) 0) | 226 (vector (+ (aref (cdr (car alist)) 0) |
227 quoted-insert-character-offset)) | 227 nonascii-insert-offset)) |
228 (cdr (car alist))))) | 228 (cdr (car alist))))) |
229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) | 229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) |
230 (let ((inchar (aref (car (car alist)) 0)) | 230 (let ((inchar (aref (car (car alist)) 0)) |
231 (vec (vconcat (car (car alist)))) | 231 (vec (vconcat (car (car alist)))) |
232 (tail iso-transl-dead-key-alist)) | 232 (tail iso-transl-dead-key-alist)) |