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)) |