Mercurial > hg > xemacs-beta
annotate lisp/mule/lao.el @ 5189:b65692aa90d8
Cosmetic XFT-code fixes, some variable renamings
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-04-04 Ben Wing <ben@xemacs.org>
* font-mgr.c:
* font-mgr.c (fc_standard_properties):
* font-mgr.c (Ffc_pattern_p):
* font-mgr.c (Ffc_pattern_create):
* font-mgr.c (Ffc_name_parse):
* font-mgr.c (Ffc_name_unparse):
* font-mgr.c (Ffc_pattern_duplicate):
* font-mgr.c (Ffc_pattern_add):
* font-mgr.c (Ffc_pattern_del):
* font-mgr.c (Ffc_pattern_get):
* font-mgr.c (fc_config_create_using):
* font-mgr.c (fc_strlist_to_lisp_using):
* font-mgr.c (fontset_to_list):
* font-mgr.c (Ffc_config_p):
* font-mgr.c (Ffc_config_create):
* font-mgr.c (Ffc_config_destroy):
* font-mgr.c (Ffc_config_up_to_date):
* font-mgr.c (Ffc_config_build_fonts):
* font-mgr.c (Ffc_config_get_config_dirs):
* font-mgr.c (Ffc_config_get_font_dirs):
* font-mgr.c (Ffc_config_get_config_files):
* font-mgr.c (Ffc_config_get_cache):
* font-mgr.c (Ffc_config_get_fonts):
* font-mgr.c (Ffc_config_set_current):
* font-mgr.c (Ffc_config_get_blanks):
* font-mgr.c (Ffc_config_get_rescan_interval):
* font-mgr.c (Ffc_config_set_rescan_interval):
* font-mgr.c (Ffc_config_app_font_add_file):
* font-mgr.c (Ffc_config_app_font_add_dir):
* font-mgr.c (Ffc_config_app_font_clear):
* font-mgr.c (Ffc_init_load_config):
* font-mgr.c (Ffc_init_load_config_and_fonts):
* font-mgr.c (Ffc_config_get_current):
* font-mgr.c (size):
* font-mgr.c (Ffc_font_render_prepare):
* font-mgr.c (Ffc_font_match):
* font-mgr.c (Ffc_font_sort):
* font-mgr.c (Ffc_init):
* font-mgr.c (Ffc_get_version):
* font-mgr.c (Ffc_init_reinitialize):
* font-mgr.c (Ffc_init_bring_up_to_date):
* font-mgr.c (Fxlfd_font_name_p):
* font-mgr.c (make_xlfd_font_regexp):
* font-mgr.c (syms_of_font_mgr):
* font-mgr.c (vars_of_font_mgr):
* font-mgr.c (complex_vars_of_font_mgr):
Fix the code to conform to GNU style standards.
Rename xft-debug-level to debug-xft.
* fontcolor-x.c:
* fontcolor-x.c (vars_of_fontcolor_x):
Rename debug-x-objects to debug-x-fonts.
* fontcolor-xlike-inc.c:
* fontcolor-xlike-inc.c (DEBUG_FONTS1):
* fontcolor-xlike-inc.c (DEBUG_FONTS2):
* fontcolor-xlike-inc.c (DEBUG_FONTS3):
* fontcolor-xlike-inc.c (DEBUG_FONTS4):
* fontcolor-xlike-inc.c (DEBUG_FONTS_LISP1):
* fontcolor-xlike-inc.c (count_hyphens):
* fontcolor-xlike-inc.c (XFUN):
* fontcolor-xlike-inc.c (xlistfonts_checking_charset):
* fontcolor-xlike-inc.c (xft_find_charset_font):
Misc. code fixes, mostly cosmetic. Get rid of some warnings.
Fix the code to conform to GNU style standards.
* lisp.h:
* print.c:
* print.c (debug_out_lisp):
New function for doing printf-like formatting involving Lisp objects
and outputting to the debug output.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sun, 04 Apr 2010 23:46:50 -0500 |
| parents | 949ac151a10d |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 778 | 1 ;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*- |
| 771 | 2 |
| 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 | |
| 6 ;; Keywords: multilingual, Lao | |
| 7 | |
| 8 ;; This file is part of XEmacs. | |
| 9 | |
| 10 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 11 ;; under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 18 ;; General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
| 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 23 ;; 02111-1307, USA. | |
| 24 | |
| 778 | 25 ;;; Synched up with: Emacs 21.1 (language/lao.el). |
| 26 | |
| 27 ;;; Commentary: | |
| 771 | 28 |
| 29 ;;; Code: | |
| 30 | |
| 778 | 31 ;; Lao script. |
| 32 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F. | |
| 33 (make-charset 'lao "Lao characters (ISO10646 0E80..0EDF)" | |
| 34 '(dimension | |
| 35 1 | |
| 3659 | 36 registries ["MuleLao-1"] |
| 778 | 37 chars 94 |
| 38 columns 1 | |
| 39 direction l2r | |
| 40 final ?1 | |
| 41 graphic 0 | |
| 42 short-name "Lao" | |
| 43 long-name "Lao" | |
| 44 )) | |
| 45 | |
| 771 | 46 ; (make-coding-system |
| 47 ; 'lao 2 ?L | |
| 48 ; "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" | |
| 49 ; '(ascii lao nil nil | |
| 50 ; nil nil) | |
| 51 ; '((safe-charsets ascii lao))) | |
| 52 | |
| 53 (make-coding-system | |
| 54 'lao 'iso2022 "Lao" | |
| 55 '(charset-g0 ascii | |
| 56 charset-g1 lao | |
| 57 mnemonic "Lao" | |
| 58 safe-charsets (ascii lao) | |
| 59 documentation "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)")) | |
| 60 | |
| 61 (set-language-info-alist | |
| 62 "Lao" '((charset lao) | |
| 63 (coding-system lao) | |
| 64 (coding-priority lao) | |
| 3970 | 65 ;; (input-method . "lao") |
| 771 | 66 (nonascii-translation . lao) |
| 67 (unibyte-display . lao) | |
| 68 (features lao-util) | |
| 69 (documentation . t))) | |
| 70 | |
| 780 | 71 (put-char-table ?(1;(B t use-default-ascent) |
| 72 (put-char-table ?(1=(B t use-default-ascent) | |
| 73 (put-char-table ?(1?(B t use-default-ascent) | |
| 74 (put-char-table ?(1B(B t use-default-ascent) | |
| 75 (put-char-table ?(1\(B t ignore-relative-composition) | |
| 771 | 76 |
| 77 ;; Register a function to compose Lao characters. | |
| 778 | 78 (put-char-table 'lao |
| 79 '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" | |
| 80 . lao-composition-function)) | |
| 81 composition-function-table) | |
| 771 | 82 |
| 83 (provide 'lao) | |
| 84 | |
| 85 ;;; lao.el ends here |