CVS update by aidan xemacs/tests/gtk ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Thu Jun 21 09:39:38 EDT 2007
User: aidan
Date: 07/06/21 15:39:37
Modified: xemacs/tests/gtk event-stream-tests.el
Log:
'(lambda ...) -> #'(lambda ...), for the sake of style and the byte
compiler.
Revision Changes Path
1.805 +20 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.804
retrieving revision 1.805
diff -u -p -r1.804 -r1.805
--- ChangeLog 2007/06/12 10:32:15 1.804
+++ ChangeLog 2007/06/21 13:39:08 1.805
@@ -1,3 +1,23 @@
+2007-06-21 Aidan Kehoe <kehoea at parhasard.net>
+
+ * mule/devan-util.el (devanagari-reorder-glyphs-for-composition):
+ * mule/ethio-util.el (ethio-fidel-to-sera-buffer):
+ '(lambda ...) -> #'(lambda ..), for the sake of style and the byte
+ compiler.
+
+2007-06-21 Aidan Kehoe <kehoea at parhasard.net>
+
+ * build-report.el (build-report-delete):
+ * cus-edit.el (custom-face):
+ * custom.el (custom-theme-reset-variables):
+ * fontconfig.el (fc-find-available-font-families):
+ * fontconfig.el (fc-find-available-weights-for-family):
+ * select.el (select-convert-from-integer):
+ * x-faces.el (x-find-smaller-font-xft):
+ * x-faces.el (x-find-larger-font-xft):
+ '(lambda ...) -> #'(lambda ..), for the sake of style and the byte
+ compiler.
+
2007-06-12 Adrian Aichner <adrian at xemacs.org>
* package-get.el (package-get-download-sites): Add mirror in Saudi
1.15 +3 -3 XEmacs/xemacs/lisp/build-report.el
Index: build-report.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/build-report.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- build-report.el 2005/10/21 10:34:35 1.14
+++ build-report.el 2007/06/21 13:39:10 1.15
@@ -3,8 +3,8 @@
;; Copyright (C) 1997-2003 Adrian Aichner
;; Author: Adrian Aichner <adrian at xemacs.org>
-;; Date: $Date: 2005/10/21 10:34:35 $
-;; Version: $Revision: 1.14 $
+;; Date: $Date: 2007/06/21 13:39:10 $
+;; Version: $Revision: 1.15 $
;; Keywords: internal
;; This file is part of XEmacs.
@@ -520,7 +520,7 @@ REGEXPs in `build-report-keep-regexp' or
"Concatenate elements of `build-report-delete-regexp' and a general
MIME tag REGEXP. The result is a REGEXP string matching either of the
REGEXPs in `build-report-delete-regexp' or a general MIME tag REGEXP."
- (mapconcat '(lambda (item) item)
+ (mapconcat #'identity
build-report-delete-regexp "\\|"))
(defun build-report-installation-data (&optional file)
1.24 +2 -2 XEmacs/xemacs/lisp/cus-edit.el
Index: cus-edit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cus-edit.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -p -r1.23 -r1.24
--- cus-edit.el 2005/02/03 04:29:33 1.23
+++ cus-edit.el 2007/06/21 13:39:10 1.24
@@ -2544,8 +2544,8 @@ Match frames with dark backgrounds")
"Customize face."
:sample-face 'custom-face-tag-face
:help-echo "Set or reset this face"
-:documentation-property '(lambda (face)
- (face-doc-string face))
+:documentation-property #'(lambda (face)
+ (face-doc-string face))
:value-create 'custom-face-value-create
:action 'custom-face-action
:custom-category 'face
1.14 +3 -3 XEmacs/xemacs/lisp/custom.el
Index: custom.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/custom.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- custom.el 2005/02/03 04:29:33 1.13
+++ custom.el 2007/06/21 13:39:10 1.14
@@ -1042,9 +1042,9 @@ ARGS is a list of lists of the form
This means reset VARIABLE to its value in TO-THEME."
(custom-check-theme theme)
- (mapcar '(lambda (arg)
- (apply 'custom-theme-reset-internal arg)
- (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg)))
+ (mapcar #'(lambda (arg)
+ (apply 'custom-theme-reset-internal arg)
+ (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg)))
args))
(defun custom-reset-variables (&rest args)
1.5 +6 -6 XEmacs/xemacs/lisp/fontconfig.el
Index: fontconfig.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/fontconfig.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- fontconfig.el 2006/04/25 14:01:53 1.4
+++ fontconfig.el 2007/06/21 13:39:10 1.5
@@ -481,8 +481,8 @@ selected device."
(fc-list-fonts-pattern-objects device pattern objectset)))
(fc-delete-duplicates
(mapcar
- '(lambda (pattern)
- (fc-pattern-get-family pattern 0))
+ #'(lambda (pattern)
+ (fc-pattern-get-family pattern 0))
(if filter-fun
(fc-filter all-fonts filter-fun)
all-fonts))))))
@@ -496,10 +496,10 @@ selected device."
(if style
(fc-pattern-add-style pattern style))
(mapcar
- '(lambda (pattern)
- (let ((fc-weight-constant (fc-pattern-get-weight pattern 0)))
- (if fc-weight-constant
- (fc-font-weight-translate-from-constant fc-weight-constant))))
+ #'(lambda (pattern)
+ (let ((fc-weight-constant (fc-pattern-get-weight pattern 0)))
+ (if fc-weight-constant
+ (fc-font-weight-translate-from-constant fc-weight-constant))))
(fc-list-fonts-pattern-objects device pattern objectset))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1.17 +5 -5 XEmacs/xemacs/lisp/select.el
Index: select.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/select.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- select.el 2005/11/16 07:22:40 1.16
+++ select.el 2007/06/21 13:39:11 1.17
@@ -727,17 +727,17 @@ nil if this is impossible, or a suitable
((listp value) ; list
(if (cdr value)
- (mapcar '(lambda (x)
- (select-convert-from-integer selection type x))
+ (mapcar #'(lambda (x)
+ (select-convert-from-integer selection type x))
value)
(select-convert-from-integer selection type (car value))))
((vectorp value) ; vector
(if (eq (length value) 1)
(select-convert-from-integer selection type (aref value 0))
- (mapvector '(lambda (x)
- (select-convert-from-integer selection type x))
- value)))
+ (mapvector #'(lambda (x)
+ (select-convert-from-integer selection type x))
+ value)))
(t nil)
))
1.29 +2 -2 XEmacs/xemacs/lisp/x-faces.el
Index: x-faces.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-faces.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -p -r1.28 -r1.29
--- x-faces.el 2007/04/22 19:58:33 1.28
+++ x-faces.el 2007/06/21 13:39:11 1.29
@@ -533,7 +533,7 @@ Otherwise, it returns the next smaller v
(fc-name-unparse copy))))))))
(defun x-find-smaller-font-xft (font &optional device)
- (x-find-xft-font-of-size font '(lambda (old-size) (- old-size 1.0)) device))
+ (x-find-xft-font-of-size font #'(lambda (old-size) (- old-size 1.0)) device))
(defun x-find-smaller-font-core (font &optional device)
(x-frob-font-size font nil device))
@@ -550,7 +550,7 @@ Otherwise, it returns the next larger ve
(x-find-larger-font-core font device)))
(defun x-find-larger-font-xft (font &optional device)
- (x-find-xft-font-of-size font '(lambda (old-size) (+ old-size 1.0)) device))
+ (x-find-xft-font-of-size font #'(lambda (old-size) (+ old-size 1.0)) device))
(defun x-find-larger-font-core (font &optional device)
(x-frob-font-size font t device))
1.6 +1 -1 XEmacs/xemacs/lisp/mule/devan-util.el
Index: devan-util.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/devan-util.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- devan-util.el 2004/11/15 20:15:22 1.5
+++ devan-util.el 2007/06/21 13:39:27 1.6
@@ -1057,7 +1057,7 @@ Ligatures and special rules are processe
(setq ordered-glyphs
(append ordered-glyphs
(list (assq glyph devanagari-composition-rules))))))
- (sort ordered-glyphs '(lambda (x y) (< (car (cdr x)) (car (cdr y)))))))
+ (sort ordered-glyphs #'(lambda (x y) (< (car (cdr x)) (car (cdr y)))))))
;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B"
1.9 +4 -4 XEmacs/xemacs/lisp/mule/ethio-util.el
Index: ethio-util.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/ethio-util.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- ethio-util.el 2006/04/29 18:55:32 1.8
+++ ethio-util.el 2007/06/21 13:39:27 1.9
@@ -1056,10 +1056,10 @@ See also the descriptions of the variabl
(aset ethio-fidel-to-sera-map 463 "?"))
(mapcar
- '(lambda (x)
- (aset (aref ethio-fidel-to-sera-map x)
- 2
- (if ethio-W-sixth-always ?' ?u)))
+ #'(lambda (x)
+ (aset (aref ethio-fidel-to-sera-map x)
+ 2
+ (if ethio-W-sixth-always ?' ?u)))
'(77 93 141 181 197 277 440 441 442 443 444 457))
(if (ethio-prefer-amharic-p)
1.15 +234 -335 XEmacs/xemacs/lisp/mule/Attic/european.el
Index: european.el
===================================================================
RCS file: european.el
diff -N european.el
--- /dev/null Thu Jun 21 15:39:27 2007
+++ /tmp/cvsAAAa.aG1O Thu Jun 21 15:39:29 2007
@@ -0,0 +1,440 @@
+;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
+
+;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1997 MORIOKA Tomohiko
+;; Copyright (C) 2001 Ben Wing.
+;; Copyright (C) 2002, 2005, 2006 Free Software Foundation
+
+;; Keywords: multilingual, European
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Commentary:
+
+;; For Roman-alphabet-using Europeans, eight coded character sets,
+;; ISO8859-1,2,3,4,9,14,15,16 are supported.
+
+
+
+;; Latin-1's case is dealt with in iso8859-1.el, which see. Its syntax is
+;; initialised in syntax.c:complex_vars_of_syntax.
+
+
+;; Latin-2 (ISO-8859-2). Central Europe; Czech, Slovak, Hungarian, Polish,
+;; Croatian, other languages.
+;;
+;; (Yes, it really is Central European. German written in Latin 2 and using
+;; only Umlaute and the sharp S in its non-ASCII repertoire is bit-for-bit
+;; identical with the same text in Latin-1.)
+
+(make-coding-system
+ 'iso-8859-2 'iso2022 "ISO-8859-2 (Latin-2)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-2
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-2"))
+
+;; The default character syntax is now word. Pay attention to the
+;; exceptions in ISO-8859-2, copying them from ISO-8859-1.
+(loop
+ for (latin-2 latin-1)
+ in '((#xA0 #xA0) ;; NO BREAK SPACE
+ (#xA2 #xB4) ;; BREVE, ACUTE ACCENT
+ (#xA4 #xA4) ;; CURRENCY SIGN
+ (#xA7 #xA7) ;; SECTION SIGN
+ (#xA8 #xA8) ;; DIAERESIS
+ (#xAD #xAD) ;; SOFT HYPHEN
+ (#xB0 #xB0) ;; DEGREE SIGN
+ (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT
+ (#xB4 #xB4) ;; ACUTE ACCENT
+ (#xB7 #xB4) ;; CARON, ACUTE ACCENT
+ (#xB8 #xB8) ;; CEDILLA
+ (#xBD #xB4) ;; DOUBLE ACUTE ACCENT, ACUTE ACCENT
+ (#xD7 #xD7) ;; MULTIPLICATION SIGN
+ (#xF7 #xF7) ;; DIVISION SIGN
+ (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry
+ (make-char 'latin-iso8859-2 latin-2)
+ (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
+ syntax-table))
+
+;;
+;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent.
+
+(make-coding-system
+ 'iso-8859-3 'iso2022 "ISO-8859-3 (Latin-3)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-3
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-3"))
+
+;; Initialise the non-word syntax codes in ISO-8859-3, copying them from
+;; ISO-8859-1.
+(loop
+ for (latin-3 latin-1)
+ in '((#xA0 #xA0) ;; NO BREAK SPACE
+ (#xA2 #xB4) ;; BREVE, ACUTE ACCENT
+ (#xA3 #xA3) ;; POUND SIGN
+ (#xA4 #xA4) ;; CURRENCY SIGN
+ (#xA7 #xA7) ;; SECTION SIGN
+ (#xA8 #xA8) ;; DIAERESIS
+ (#xAD #xAD) ;; SOFT HYPHEN
+ (#xB0 #xB0) ;; DEGREE SIGN
+ (#xB2 #xB2) ;; SUPERSCRIPT TWO
+ (#xB3 #xB3) ;; SUPERSCRIPT THREE
+ (#xB4 #xB4) ;; ACUTE ACCENT
+ (#xB5 #xB5) ;; MICRO SIGN
+ (#xB7 #xB7) ;; MIDDLE DOT
+ (#xB8 #xB8) ;; CEDILLA
+ (#xBD #xBD) ;; VULGAR FRACTION ONE HALF
+ (#xD7 #xD7) ;; MULTIPLICATION SIGN
+ (#xF7 #xF7) ;; DIVISION SIGN
+ (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry
+ (make-char 'latin-iso8859-3 latin-3)
+ (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
+ syntax-table))
+
+;; Latin-4 (ISO-8859-4)
+
+;; Estonian, Latvian, Lithuanian, Greenlandic, and Sami. Obsolescent.
+
+(make-coding-system
+ 'iso-8859-4 'iso2022 "ISO-8859-4 (Latin-4)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-4
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-4"))
+
+;; The default character syntax is now word. Pay attention to the
+;; exceptions in ISO-8859-4, copying them from ISO-8859-1.
+(loop
+ for (latin-4 latin-1)
+ in '((#xA0 #xA0) ;; NO BREAK SPACE
+ (#xA4 #xA4) ;; CURRENCY SIGN
+ (#xA7 #xA7) ;; SECTION SIGN
+ (#xA8 #xA8) ;; DIAERESIS
+ (#xAD #xAD) ;; SOFT HYPHEN
+ (#xB0 #xB0) ;; DEGREE SIGN
+ (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT
+ (#xB4 #xB4) ;; ACUTE ACCENT
+ (#xB7 #xB4) ;; CARON, ACUTE ACCENT
+ (#xB8 #xB8) ;; CEDILLA
+ (#xD7 #xD7) ;; MULTIPLICATION SIGN
+ (#xF7 #xF7) ;; DIVISION SIGN
+ (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry
+ (make-char 'latin-iso8859-4 latin-4)
+ (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
+ syntax-table))
+
+
+;; Latin-8 (ISO 8859-14) Celtic.
+
+;; Never widely used. Current-orthography Gaelic, both Irish and Scots, is
+;; easily written with Latin-1. Wikipedia says the same about Welsh.
+
+(make-charset 'latin-iso8859-14
+ "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
+ '(dimension 1
+ registries ["ISO8859-14"]
+ chars 96
+ columns 1
+ direction l2r
+ final ?_
+ graphic 1
+ short-name "RHP of Latin-8"
+ long-name "RHP of Latin-8 (ISO 8859-14)"))
+
+;;
+;; Character syntax defaults to word. The exceptions here shared with Latin-1.
+(dolist (code '(#xa0 ;; NO BREAK SPACE
+ #xa3 ;; POUND SIGN
+ #xa7 ;; SECTION SIGN
+ #xa9 ;; COPYRIGHT
+ #xad ;; SOFT HYPHEN
+ #xae ;; REGISTERED
+ #xb6)) ;; PILCROW SIGN
+ (modify-syntax-entry (make-char 'latin-iso8859-14 code)
+ (string (char-syntax (make-char 'latin-iso8859-1 code)))
+ (standard-syntax-table)))
+
+
+;; The syntax table code for ISO 8859-15 and ISO 8859-16 requires that the
+;; guillemets not have parenthesis syntax, which they used to have in the
+;; past. See syntax.c:complex_vars_of_syntax.
+
+(assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\))))
+ t "This code assumes \xAB does not have parenthesis syntax. ")
+
+(assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\))))
+ t "This code assumes \xBB does not have parenthesis syntax. ")
+
+
+;; Latin-9 (ISO-8859-15)
+;;
+;; Latin-1 plus Euro, plus a few accented characters for the sake of correct
+;; Finnish and French orthography. Only ever widely used on Unix.
+;;
+;; Based on Latin-1 and differences therefrom.
+;;
+;; First, initialise the syntax from the corresponding Latin-1 characters.
+(loop
+ for c from #xa0 to #xff
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry (make-char 'latin-iso8859-15 c)
+ (string (char-syntax (make-char 'latin-iso8859-1 c)))
+ syntax-table))
+
+;; Now, the exceptions. The Euro sign retains the syntax of CURRENCY SIGN.
+(loop
+ for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B)
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry c "w" syntax-table))
+
+(make-coding-system
+ 'iso-8859-15 'iso2022
+ "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
+ `(mnemonic "MIME/Ltn-9" ; bletch
+ eol-type nil
+ charset-g0 ascii
+ charset-g1 latin-iso8859-15
+ charset-g2 t
+ charset-g3 t))
+;; end of ISO 8859-15.
+
+;;
+;; Latin-10 (ISO 8859-16).
+;;
+;; "South-Eastern European." Not, to my knowledge, ever widely used.
+
+(make-charset 'latin-iso8859-16
+ "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)"
+ '(dimension 1
+ registries ["ISO8859-16"]
+ chars 96
+ columns 1
+ direction l2r
+ final ?f ; octet 06/06; cf ISO-IR 226
+ graphic 1
+ short-name "RHP of Latin-10"
+ long-name "RHP of Latin-10 (ISO 8859-16)"))
+
+;; Copy over the non-word syntax this charset has in common with Latin 1.
+(dolist (code '(#xa0 ;; NO BREAK SPACE
+ #xa7 ;; SECTION SIGN
+ #xa9 ;; COPYRIGHT
+ #xab ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+ #xad ;; SOFT HYPHEN
+ #xb0 ;; DEGREE
+ #xb1 ;; PLUS-MINUS SIGN
+ #xb6 ;; PILCROW SIGN
+ #xb7 ;; MIDDLE DOT
+ #xbb)) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+ (modify-syntax-entry (make-char 'latin-iso8859-16 code)
+ (string (char-syntax (make-char 'latin-iso8859-1 code)))
+ (standard-syntax-table)))
+
+;; EURO SIGN. Take its syntax from the pound sign.
+(modify-syntax-entry (make-char 'latin-iso8859-16 #xa4)
+ (string (char-syntax (make-char 'latin-iso8859-1 #xa3)))
+ (standard-syntax-table))
+
+;; Take DOUBLE LOW-9 QUOTATION MARK's syntax from that of LEFT-POINTING
+;; DOUBLE ANGLE QUOTATION MARK.
+(modify-syntax-entry (make-char 'latin-iso8859-16 #xa5)
+ (string (char-syntax (make-char 'latin-iso8859-1 #xab)))
+ (standard-syntax-table))
+
+;; Take RIGHT DOUBLE QUOTATION MARK's syntax from that of RIGHT-POINTING
+;; DOUBLE ANGLE QUOTATION MARK.
+(modify-syntax-entry (make-char 'latin-iso8859-16 #xb5)
+ (string (char-syntax (make-char 'latin-iso8859-1 #xbb)))
+ (standard-syntax-table))
+
+;; Add a coding system for ISO 8859-16.
+(make-coding-system
+ 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-16
+ charset-g2 t ; grrr
+ charset-g3 t ; grrr
+ mnemonic "MIME/Ltn-10"))
+
+;; end of ISO 8859-16.
+
+
+(provide 'romanian)
+
+;; Czech support originally from czech.el
+;; Author: Milan Zamazal <pdm at zamazal.org>
+;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel at Janik.cz>
+;; Maintainer (for XEmacs): David Sauer <davids at penguin.cz>
+
+(provide 'czech)
+
+;; Slovak support originally from slovak.el
+;; Authors: Tibor ,B)(Bimko <tibor.simko at fmph.uniba.sk>,
+;; Milan Zamazal <pdm at fi.muni.cz>
+;; Maintainer: Milan Zamazal <pdm at fi.muni.cz>
+
+(provide 'slovenian)
+
+;; Latin-5 (ISO-8859-9)
+
+;; Turkish (more generally Turkic.) This is identical to Latin-1, with the
+;; exception that the Icelandic-specific letters have been replaced by
+;; Turkish-specific letters. As such, we can simply copy the Latin-1 syntax
+;; table. However, the case table isn't yet enabled--see latin.el.
+
+(loop
+ for i from #xA0 to #xFF
+ with syntax-table = (standard-syntax-table)
+ do (modify-syntax-entry
+ (make-char 'latin-iso8859-9 i)
+ (string (char-syntax (make-char 'latin-iso8859-1 i)))
+ syntax-table))
+
+(make-coding-system
+ 'iso-8859-9 'iso2022 "ISO-8859-9 (Latin-5)"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-9
+ charset-g2 t
+ charset-g3 t
+ mnemonic "MIME/Ltn-5"))
+
+(loop
+ for ((charset codesys default-input nice-charset-1 nice-charset-2
+ ;; supported-langs is a list if the doc string is replaced
+ ;; entirely
+ supported-langs)
+ langenvs) in
+ '(((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1"
+" Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
+ Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.")
+ (("Danish" "da")
+ ("Dutch" "nl" "TUTORIAL.nl")
+ ("Faeroese")
+ ("Finnish" "fi")
+ ("French" "fr" "TUTORIAL.fr" "Bonjour, ,Ag(Ba va?")
+ ("German" "de" "TUTORIAL.de" "\
+German (Deutsch Nord) Guten Tag
+German (Deutsch S,A|(Bd) Gr,A|_(B Gott"
+ "german-postfix")
+ ("Icelandic" "is")
+ ("Irish" "ga")
+ ("Italian" "it")
+ ("Norwegian" "no" "TUTORIAL.no")
+ ("Portuguese" "pt" nil "Bem-vindo! Tudo bem?")
+ ("Spanish" "es" "TUTORIAL.es" ",A!(BHola!")
+ ("Swedish" "sv" "TUTORIAL.se" "Hej!")))
+ ((latin-iso8859-15 iso-8859-15 "latin-1-prefix" ;; #### FIXME
+ "Latin-9" "ISO-8859-15"
+ ("\
+This language environment is a generic one for Latin-9 (ISO-8859-15)
+character set which supports the Euro sign and the following languages
+(they use the Latin-1 character set by default):
+ Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
+ Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
+Each also has its own specific language environment."))
+ ())
+ ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2"
+" Albanian, Czech, English, German, Hungarian, Polish, Romanian,
+ Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
+ and Swedish.") ;; " (fontification got screwed up, CVS-20061203)
+ (("Albanian" nil)
+ ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
+ ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
+ "latin-2-postfix")
+ ("Hungarian" ("hungarian" "hu"))
+ ("Polish" "po" "TUTORIAL.pl")
+ ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
+ "latin-2-postfix")
+ ("Serbian" "sr")
+ ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!"
+ ;; !!#### FSF "slovak"
+ "latin-2-postfix")
+ ("Slovenian" "sl" "TUTORIAL.sl" ",B.(Belimo vam uspe,B9(Ben dan!"
+ "latin-2-postfix")
+ ("Sorbian" nil)))
+ ((latin-iso8859-3 iso-8859-3 "latin-3-prefix" "Latin-3" "ISO-8859-3"
+" Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
+ German, Italian, Maltese, Spanish, and Turkish.")
+ (("Afrikaans" "af")
+ ("Catalan" ("catalan" "ca"))
+ ("Esperanto")
+ ("Galician")
+ ("Maltese")))
+ ((latin-iso8859-4 iso-8859-4 "latin-4-prefix" "Latin-4" "ISO-8859-4"
+" Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
+ Latvian, Lithuanian, and Norwegian.")
+ (("Estonian" "et")
+ ("Greenlandic")
+ ("Lappish")
+ ("Latvian" "lv")
+ ("Lithuanian" "li")))
+ ((latin-iso8859-5 iso-8859-9 "latin-5-prefix" "Latin-5" "ISO-8859-9")
+ (("Turkish" "tr"))))
+ do
+ (set-language-info-alist
+ nice-charset-1
+ `((charset ascii ,charset)
+ (coding-system ,codesys)
+ (coding-priority ,codesys)
+ (documentation . ,(if (listp supported-langs) (car supported-langs)
+ (format "\
+This language environment is a generic one for %s (%s)
+character set which supports the following languages (not all of them may
+use this character set by default):
+%s
+Each also has its own specific language environment."
+ nice-charset-1 nice-charset-2
+ supported-langs))))
+ '("European"))
+ (loop for (name locale tutorial sample-text input-method) in langenvs
+ do
+ (set-language-info-alist
+ name
+ `((charset ascii ,charset)
+ (coding-system ,codesys)
+ (coding-priority ,codesys)
+ ,@(if locale `((locale . ,locale)))
+ ,@(if tutorial `((tutorial . ,tutorial)))
+ ,@(if sample-text `((sample-text . ,sample-text)))
+ (input-method . ,(or input-method default-input))
+ (documentation . ,(format "\
+This language environment supports %s using the Latin-1 (ISO-8859-1)
+character set. Languages supported by Latin-1 are Danish, Dutch, English,
+Faeroese, Finnish, French, German, Icelandic, Irish, Italian, Norwegian,
+Portuguese, Spanish, and Swedish. The various language environments for
+these languages are similar to the Latin-1 environment, but typically have
+their own locale specified (for subprocesses and for selection of the
+correct language environment at startup), and may have their own tutorials
+and/or a different input method."
+ name)))
+ '("European"))
+ ))
+
+;;; european.el ends here
1.93 +13 -0 XEmacs/xemacs/tests/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/ChangeLog,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -p -r1.92 -r1.93
--- ChangeLog 2007/05/21 05:02:43 1.92
+++ ChangeLog 2007/06/21 13:39:32 1.93
@@ -1,3 +1,16 @@
+2007-06-21 Aidan Kehoe <kehoea at parhasard.net>
+
+ * gtk/event-stream-tests.el (timer-check):
+ '(lambda ...) -> #'(lambda ..), for the sake of style and the byte
+ compiler.
+
+2007-06-21 Aidan Kehoe <kehoea at parhasard.net>
+
+ * automated/weak-tests.el (p):
+ * automated/weak-tests.el (inner_cons):
+ '(lambda ...) -> #'(lambda ..), for the sake of style and the byte
+ compiler.
+
2007-05-21 Stephen J. Turnbull <stephen at xemacs.org>
* XEmacs 21.5.28 "fuki" is released.
1.5 +3 -3 XEmacs/xemacs/tests/automated/weak-tests.el
Index: weak-tests.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/weak-tests.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- weak-tests.el 2003/11/01 14:55:00 1.4
+++ weak-tests.el 2007/06/21 13:39:34 1.5
@@ -55,8 +55,8 @@
(let* ((p (cons 3 4))
(finalized-p nil)
(eph1 (make-ephemeron (cons 1 2) p
- '(lambda (value)
- (setq finalized-p t))))
+ #'(lambda (value)
+ (setq finalized-p t))))
(eph2 (make-ephemeron p p)))
(Assert (eq p (ephemeron-ref (make-ephemeron (cons 1 2) p))))
(Assert (ephemeron-p (make-ephemeron (cons 1 2) p)))
@@ -233,7 +233,7 @@
(make-ephemeron inner_cons
(cons 1 2)
'(lambda (v) t))
- '(lambda (v) t))))
+ #'(lambda (v) t))))
(Assert (ephemeron-ref (ephemeron-ref weak1)))
(garbage-collect)
;; assure the inner ephis are still there
1.3 +1 -1 XEmacs/xemacs/tests/gtk/event-stream-tests.el
Index: event-stream-tests.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/gtk/event-stream-tests.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- event-stream-tests.el 2001/04/12 18:24:57 1.2
+++ event-stream-tests.el 2007/06/21 13:39:36 1.3
@@ -29,7 +29,7 @@ Be sure you do all of the above checking
; Make sure that timer handlers are run during, not after sit-for:
(defun timer-check ()
- (add-timeout 2 '(lambda (ignore) (message "timer ran")) nil)
+ (add-timeout 2 #'(lambda (ignore) (message "timer ran")) nil)
(sit-for 5)
(message "after sit-for"))
More information about the XEmacs-CVS
mailing list