/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56.2.2 by fx, Mon Sep 10 17:13:53 2001 UTC revision 1.56.2.3 by fx, Thu Nov 22 10:45:46 2001 UTC
# Line 2  Line 2 
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    
# Line 394  detailed meanings of these arguments." Line 395  detailed meanings of these arguments."
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))))
# Line 447  detailed meanings of these arguments." Line 449  detailed meanings of these arguments."
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
# Line 1239  No input method is available, perhaps be Line 1244  No input method is available, perhaps be
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")

Legend:
Removed from v.1.56.2.2  
changed lines
  Added in v.1.56.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26