Parent Directory | Revision Log | Patch
revision 1.35.2.25 by fx, Wed Oct 9 22:20:36 2002 UTC | revision 1.35.2.26 by handa, Thu Nov 7 06:27:55 2002 UTC | |
---|---|---|
# | Line 937 | Line 937 |
937 | (setq script-list (cons (nth 2 elt) script-list)))) | (setq script-list (cons (nth 2 elt) script-list)))) |
938 | (set-char-table-extra-slot char-script-table 0 (nreverse script-list))) | (set-char-table-extra-slot char-script-table 0 (nreverse script-list))) |
939 | ||
940 | (map-charset-chars | |
941 | #'(lambda (range ignore) | |
942 | (set-char-table-range char-script-table range 'tibetan)) | |
943 | 'tibetan) | |
944 | ||
945 | ||
946 | ;;; Setting word boundary. | ;;; Setting word boundary. |
947 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |