mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(iso-transl-define-keys): Don't add

Browse Source 
nonascii-insert-offset to ASCII characters.
This commit is contained in:
Richard M. Stallman 1998-02-07 05:04:28 +00:00
parent 59fed268c3
commit 8845349022
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/iso-transl.el
View File

@ -222,10 +222,10 @@ sequence VECTOR. (VECTOR is normally one character long.)")
(defun iso-transl-define-keys (alist)
(while alist
(let ((translated-vec
(if enable-multibyte-characters
(vector (+ (aref (cdr (car alist)) 0)
nonascii-insert-offset))
(cdr (car alist)))))
(let ((val (cdr (car alist))))
(if (and enable-multibyte-characters (>= (aref val 0) ?\200))
(vector (+ (aref val 0) nonascii-insert-offset))
val))))
(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))))