Mercurial > hg > xemacs-beta
annotate lisp/mule/mule-msw-init-late.el @ 5553:62edcc6a11ec
Add an assertion about argument order to #'apply-partially compiler macro
lisp/ChangeLog addition:
2011-08-24 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (apply-partially):
Add an assertion to this compiler macro, requiring that the order
of the placeholders corresponding to the arguments in the
constants vector of the constructed compiled function be the same
as the order of the arguments to #'apply-partially.
tests/ChangeLog addition:
2011-08-24 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Add a test of apply partially that depends on the relative order
of its arguments.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 24 Aug 2011 11:06:41 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 780 | 1 ;;; mule-msw-init-late.el --- initialization code for MS Windows under MULE |
| 2 ;;; Copyright (C) 2001, 2002 Ben Wing. | |
| 3 | |
| 4 ;; This file is part of XEmacs. | |
| 5 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4805
diff
changeset
|
6 ;; 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:
4805
diff
changeset
|
7 ;; 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:
4805
diff
changeset
|
8 ;; 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:
4805
diff
changeset
|
9 ;; option) any later version. |
| 780 | 10 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4805
diff
changeset
|
11 ;; 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:
4805
diff
changeset
|
12 ;; 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:
4805
diff
changeset
|
13 ;; 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:
4805
diff
changeset
|
14 ;; for more details. |
| 780 | 15 |
| 16 ;; 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:
4805
diff
changeset
|
17 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 780 | 18 |
| 19 ;; mapping between XEmacs charsets and code pages. something like this | |
| 20 ;; will might around once all the Unicode code is written, so we know how | |
| 21 ;; to choose the right font. (perhaps "code pages" will become "Unicode | |
| 22 ;; subranges"; they're more or less equivalent under Windows from a font | |
| 23 ;; perspective.) But ... in reality, we can just query the charset for its | |
| 24 ;; Unicode ranges, and the "charset ID" is not a good indicator of what a | |
| 25 ;; particular font supports; e.g. there's no charset ID at all for Indian | |
| 26 ;; fonts, but Windows clearly supports them. (The docs say that Indian | |
| 27 ;; support is "all Unicode"; i.e. charset ID's are on their way out. I | |
| 28 ;; guess we're supposed to query the font for what ranges it supports, and | |
| 29 ;; what its preferred range is.) | |
| 30 | |
| 872 | 31 (let ((l '((ascii . "Western") |
| 32 (latin-iso8859-2 . "Central European") | |
| 33 (cyrillic-iso8859-5 . "Cyrillic") | |
| 34 (latin-iso8859-1 . "Western") | |
| 35 (greek-iso8859-7 . "Greek") | |
| 36 (latin-iso8859-9 . "Turkish") | |
| 37 (hebrew-iso8859-8 . "Hebrew") | |
|
4805
980575c76541
Move the arabic-iso8859-6 character set back to C, otherwise X11 lookup fails.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
38 (arabic-iso8859-6 . "Arabic") |
| 872 | 39 (latin-iso8859-4 . "Baltic") |
| 40 (vietnamese-viscii-lower . "Viet Nam") | |
| 41 (vietnamese-viscii-upper . "Viet Nam") | |
| 42 (thai-tis620 . "Thai") | |
| 43 (latin-jisx0201 . "Japanese") | |
| 44 (katakana-jisx0201 . "Japanese") | |
| 45 ;; (japanese-jisx0208-1978 . "Japanese") | |
| 46 (japanese-jisx0208 . "Japanese") | |
| 47 (japanese-jisx0212 . "Japanese") | |
| 48 (chinese-gb2312 . "Simplified Chinese") | |
| 49 (korean-ksc5601 . "Korean") | |
| 50 (chinese-big5-1 . "Traditional Chinese") | |
| 51 (chinese-big5-2 . "Traditional Chinese")))) | |
| 52 (while l | |
| 53 (let ((charset (car (car l))) | |
| 54 (registry (cdr (car l)))) | |
| 4103 | 55 (declare-fboundp (mswindows-set-charset-registry charset registry)) |
| 872 | 56 (setq l (cdr l))))) |
| 57 | |
| 780 | 58 (let ((l '((ascii . 1252) |
| 59 (latin-iso8859-2 . 1250) | |
| 60 (cyrillic-iso8859-5 . 1251) | |
| 61 (latin-iso8859-1 . 1252) | |
| 62 (greek-iso8859-7 . 1253) | |
| 63 (latin-iso8859-9 . 1254) | |
| 64 (hebrew-iso8859-8 . 1255) | |
| 65 ;; (arabic-iso8859-6 . 1256) | |
| 66 (latin-iso8859-4 . 1257) | |
| 67 (vietnamese-viscii-lower . 1258) | |
| 68 (vietnamese-viscii-upper . 1258) | |
| 69 ;; (thai-tis620 . 874) | |
| 70 (latin-jisx0201 . 932) | |
| 71 (katakana-jisx0201 . 932) | |
| 72 ;; (japanese-jisx0208-1978 . 932) | |
| 73 (japanese-jisx0208 . 932) | |
| 74 (japanese-jisx0212 . 932) | |
| 75 (chinese-gb2312 . 936) | |
| 76 (korean-ksc5601 . 949) | |
| 77 (chinese-big5-1 . 950) | |
| 78 (chinese-big5-2 . 950)))) | |
| 79 (while l | |
| 80 (let ((charset (car (car l))) | |
| 81 (code-page (cdr (car l)))) | |
| 4103 | 82 (declare-fboundp (mswindows-set-charset-code-page charset code-page)) |
| 780 | 83 (setq l (cdr l))))) |