2 |
|
|
3 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
|
;; Copyright (C) 2001 Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Keywords: multilingual, charset, coding system, fontset, diagnosis, i18n |
;; Keywords: multilingual, charset, coding system, fontset, diagnosis, i18n |
8 |
|
|
395 |
(or (< ch 32) (and (>= ch 127) (<= ch 255)))) |
(or (< ch 32) (and (>= ch 127) (<= ch 255)))) |
396 |
;; Don't insert a control code. |
;; Don't insert a control code. |
397 |
(setq ch 32)) |
(setq ch 32)) |
398 |
|
(unless ch (setq ch 32)) |
399 |
(indent-to (+ (* (% i 16) 3) 6)) |
(indent-to (+ (* (% i 16) 3) 6)) |
400 |
(insert ch) |
(insert ch) |
401 |
(setq i (1+ i)))) |
(setq i (1+ i)))) |
449 |
(setq range (car ranges) ranges (cdr ranges)) |
(setq range (car ranges) ranges (cdr ranges)) |
450 |
(if (integerp (car range)) |
(if (integerp (car range)) |
451 |
;; The form of RANGES is (FROM1 TO1 FROM2 TO2 ...). |
;; The form of RANGES is (FROM1 TO1 FROM2 TO2 ...). |
452 |
(while range |
(if (< (car (last range)) 256) |
453 |
(list-block-of-chars translate-method |
(list-block-of-chars translate-method |
454 |
0 (max 128 (car range)) (nth 1 range)) |
0 (max 128 (car range)) (car (last range))) |
455 |
(setq range (nthcdr 2 range))) |
(while range |
456 |
|
(list-block-of-chars translate-method |
457 |
|
0 (max 128 (car range)) (nth 1 range)) |
458 |
|
(setq range (nthcdr 2 range)))) |
459 |
;; The form of RANGES is ((FROM1-1 TO1-1 ...) . (FROM2-1 TO2-1 ...)). |
;; The form of RANGES is ((FROM1-1 TO1-1 ...) . (FROM2-1 TO2-1 ...)). |
460 |
(let ((row-range (car range)) |
(let ((row-range (car range)) |
461 |
row row-max |
row row-max |
1244 |
installed LEIM (Libraries of Emacs Input Method). |
installed LEIM (Libraries of Emacs Input Method). |
1245 |
|
|
1246 |
LEIM is available from the same ftp directory as Emacs. For instance, |
LEIM is available from the same ftp directory as Emacs. For instance, |
1247 |
if there exists an archive file `emacs-20.N.tar.gz', there should also |
if there exists an archive file `emacs-M.N.tar.gz', there should also |
1248 |
be a file `leim-20.N.tar.gz'. When you extract this file, LEIM files |
be a file `leim-M.N.tar.gz'. When you extract this file, LEIM files |
1249 |
are put under the subdirectory `emacs-20.N/leim'. When you install |
are put under the subdirectory `emacs-M.N/leim'. When you install |
1250 |
Emacs again, you should be able to use various input methods.")) |
Emacs again, you should be able to use various input methods.")) |
1251 |
(princ "LANGUAGE\n NAME (`TITLE' in mode line)\n") |
(princ "LANGUAGE\n NAME (`TITLE' in mode line)\n") |
1252 |
(princ " SHORT-DESCRIPTION\n------------------------------\n") |
(princ " SHORT-DESCRIPTION\n------------------------------\n") |