xemacs-beta: lisp/iso8859-1.el annotate

annotate lisp/iso8859-1.el @ 5619:75ad4969a16d

Replace the 'flush face property with the opposite 'shrink one. lisp/ChangeLog addition: 2011-12-26 Didier Verna <didier@xemacs.org> * cl-macs.el (face-flush-p): Removed. * cl-macs.el (face-shrink-p): New. * faces.el (face-flush-p): Removed. * faces.el (face-shrink-p): New. * faces.el (set-face-flush-p): Removed. * faces.el (set-face-shrink-p): New. * cus-face.el (custom-face-attributes): * faces.el (set-face-property): * faces.el (face-equal): * x-faces.el (x-init-face-from-resources): * x-faces.el (make-face-x-resource-internal): Replace the 'flush property with the opposite 'shrink one. src/ChangeLog addition: 2011-12-26 Didier Verna <didier@xemacs.org> * lisp.h: * faces.c (mark_face): * faces.c (face_equal): * faces.c (face_getprop): * faces.c (face_putprop): * faces.c (face_remprop): * faces.c (face_plist): * faces.c (reset_face): * faces.c (update_face_inheritance_mapper): * faces.c (Fmake_face): * faces.c (update_face_cachel_data): * faces.c (merge_face_cachel_data): * faces.c (Fcopy_face): * faces.c (syms_of_faces): * faces.c (vars_of_faces): * faces.c (complex_vars_of_faces): * faces.h (struct Lisp_Face): * faces.h (struct face_cachel): * faces.h (WINDOW_FACE_CACHEL_SHRINK_P): * faces.h (FACE_SHRINK_P): * fontcolor.c (face_boolean_validate): Replace the 'flush property with the opposite 'shrink one. * redisplay.c (create_text_block): * redisplay.c (create_string_text_block): Ditto. Invert the logic for storing a new clear_findex in the display lines.

author	Didier Verna <didier@xemacs.org>
date	Mon, 26 Dec 2011 15:04:25 +0100
parents	6506fcb40fcf
children

rev	line source
4103 b4f4e0cc90f1 [xemacs-hg @ 2007-08-07 23:08:47 by aidan] aidan parents: 3540 diff changeset	1 ;;; iso8859-1.el --- Set case table for Latin 1
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3540 efa52de8c279 [xemacs-hg @ 2006-08-04 20:01:05 by aidan] aidan parents: 444 diff changeset	3 ;; Copyright (C) 1992, 1997, 2006 Free Software Foundation, Inc.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Author: Jamie Zawinski <jwz@jwz.org>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Created: 19-aug-92
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 ;; Keywords: internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	11
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	12 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	13 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	14 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	15 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	20 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4417 diff changeset	23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24
3540 efa52de8c279 [xemacs-hg @ 2006-08-04 20:01:05 by aidan] aidan parents: 444 diff changeset	25 ;;; Synched up with: Not in FSF.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28
3540 efa52de8c279 [xemacs-hg @ 2006-08-04 20:01:05 by aidan] aidan parents: 444 diff changeset	29 ;; Sets the case table for the ISO-8859/1 character set.
4369 ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	30 ;; Provides ascii-case-table, for use in environments where multilingual
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	31 ;; case-insensitive processing is inappropriate.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34
4369 ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	35 (defvar ascii-case-table
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	36 (loop
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	37 for lower from (char-int ?a) to (char-int ?z)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	38 and upper from (char-int ?A) to (char-int ?Z)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	39 with table = (make-case-table)
4417 0cee1ff42db4 Correct the initialisation of ascii-case-table. Aidan Kehoe <kehoea@parhasard.net> parents: 4371 diff changeset	40 do (put-case-table-pair (coerce upper 'character)
0cee1ff42db4 Correct the initialisation of ascii-case-table. Aidan Kehoe <kehoea@parhasard.net> parents: 4371 diff changeset	41 (coerce lower 'character)
4369 ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	42 table)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	43 finally return table)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	44 "Case table for the ASCII character set.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45
4369 ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	46 (loop
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	47 for (upper lower)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	48 in '((?\xC0 ?\xE0) ;; A WITH GRAVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	49 (?\xC1 ?\xE1) ;; A WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	50 (?\xC2 ?\xE2) ;; A WITH CIRCUMFLEX
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	51 (?\xC3 ?\xE3) ;; A WITH TILDE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	52 (?\xC4 ?\xE4) ;; A WITH DIAERESIS
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	53 (?\xC5 ?\xE5) ;; A WITH RING ABOVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	54 (?\xC6 ?\xE6) ;; AE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	55 (?\xC7 ?\xE7) ;; C WITH CEDILLA
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	56 (?\xC8 ?\xE8) ;; E WITH GRAVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	57 (?\xC9 ?\xE9) ;; E WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	58 (?\xCA ?\xEA) ;; E WITH CIRCUMFLEX
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	59 (?\xCB ?\xEB) ;; E WITH DIAERESIS
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	60 (?\xCC ?\xEC) ;; I WITH GRAVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	61 (?\xCD ?\xED) ;; I WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	62 (?\xCE ?\xEE) ;; I WITH CIRCUMFLEX
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	63 (?\xCF ?\xEF) ;; I WITH DIAERESIS
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	64 (?\xD0 ?\xF0) ;; ETH
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	65 (?\xD1 ?\xF1) ;; N WITH TILDE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	66 (?\xD2 ?\xF2) ;; O WITH GRAVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	67 (?\xD3 ?\xF3) ;; O WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	68 (?\xD4 ?\xF4) ;; O WITH CIRCUMFLEX
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	69 (?\xD5 ?\xF5) ;; O WITH TILDE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	70 (?\xD6 ?\xF6) ;; O WITH DIAERESIS
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	71 (?\xD8 ?\xF8) ;; O WITH STROKE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	72 (?\xD9 ?\xF9) ;; U WITH GRAVE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	73 (?\xDA ?\xFA) ;; U WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	74 (?\xDB ?\xFB) ;; U WITH CIRCUMFLEX
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	75 (?\xDC ?\xFC) ;; U WITH DIAERESIS
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	76 (?\xDD ?\xFD) ;; Y WITH ACUTE
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	77 (?\xDE ?\xFE)) ;; THORN
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	78 with case-table = (standard-case-table)
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	79 do (put-case-table-pair upper lower case-table))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	80
4369 ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	81 ;; Everything Latin-1 and above should be displayed as its character value
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	82 ;; by default.
ef9eb714f0e4 Add ascii-case-table, #'with-case-table; make iso8859-1.el more comprehensible. Aidan Kehoe <kehoea@parhasard.net> parents: 4103 diff changeset	83 (setq-default ctl-arrow #xA0)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	84
5321 57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	85 (when (and (compiled-function-p (symbol-function 'char-width))
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	86 (not (featurep 'mule)))
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	87 (defalias 'char-width
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	88 (let ((constantly (constantly 1)))
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	89 (make-byte-code (compiled-function-arglist constantly)
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	90 (compiled-function-instructions constantly)
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	91 (compiled-function-constants constantly)
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	92 (compiled-function-stack-depth constantly)
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	93 (compiled-function-doc-string
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	94 (symbol-function 'char-width))))))
57a64ab2ae45 Implement some basic Lisp functions in terms of Common Lisp builtins. Aidan Kehoe <kehoea@parhasard.net> parents: 4417 diff changeset	95
4371 9fdac4a4ae62 Provide 'iso8859-1 again; one file (iso-syntax.el) uses it in the packages. Aidan Kehoe <kehoea@parhasard.net> parents: 4369 diff changeset	96 ;; Shouldn't be necessary, but one file in the packages uses it:
9fdac4a4ae62 Provide 'iso8859-1 again; one file (iso-syntax.el) uses it in the packages. Aidan Kehoe <kehoea@parhasard.net> parents: 4369 diff changeset	97 (provide 'iso8859-1)
9fdac4a4ae62 Provide 'iso8859-1 again; one file (iso-syntax.el) uses it in the packages. Aidan Kehoe <kehoea@parhasard.net> parents: 4369 diff changeset	98
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	99 ;;; iso8859-1.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/iso8859-1.el @ 5619:75ad4969a16d