Mercurial > hg > xemacs-beta

annotate etc/custom/example-themes/europe-theme.el @ 4997:8800b5350a13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move #'some, #'every to C, implementing them with mapcarX. src/ChangeLog addition: 2010-02-03 Aidan Kehoe <kehoea@parhasard.net> * fns.c (mapcarX): Accept a new argument, indicating whether the function is being called from #'some or #'every. Implement it. Discard any multiple values where that is appropriate. (Fmapconcat, FmapcarX, Fmapvector, Fmapcan, Fmapc, Fmap) (Fmap_into): Pass the new flag to mapcarX. (Fsome, Fevery): Move these functions here from cl-extra.el; implement them in terms of mapcarX. (maplist): Discard multiple values where appropriate. lisp/ChangeLog addition: 2010-02-03 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el (some, every): Move these functions to C. * cl-macs.el (notany, notevery): Add compiler macros for these functions, no longer proclaim them inline (which would involve specbinding that's not necessary with the compiler macros).
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 03 Feb 2010 20:26:47 +0000
parents 1de041b8edf7
children ba07c880114a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4763
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
1 ;;; europe-theme.el --- Settings for European users
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
2
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
3 ;; Copyright (C) 1999 Free Software Foundation, Inc.
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
4
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
5 ;; Author: Jan Vroonhof <jan@xemacs.org>
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
6
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
7 ;; This file is part of XEmacs.
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
8
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
9 ;; XEmacs is free software; you can redistribute it and/or modify it
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
10 ;; under the terms of the GNU General Public License as published by
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
11 ;; the Free Software Foundation; either version 2, or (at your option)
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
12 ;; any later version.
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
13
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
14 ;; XEmacs is distributed in the hope that it will be useful, but
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
17 ;; General Public License for more details.
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
18
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
19 ;; You should have received a copy of the GNU General Public License
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
21 ;; Software Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
22 ;; MA 02111-1301, USA.
1de041b8edf7 Add copyright and license information to files authored by Jan Vroonhof.
Jerry James <james@xemacs.org>
parents: 398
diff changeset
23
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
24 ;;;autoload
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
25 (deftheme europe
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
26 "Settings for European users."
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
27 :set-variable-settings
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
28 "This variable has a value appropriate for European users."
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
29 :set-variable-settings
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
30 "This has been forceed to the value appropriate for European users.")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
31
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
32 (custom-theme-set-variables 'europe
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
33 '(sentence-end-double-space nil)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
34 '(ps-paper-type (quote a4)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
35
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
36 (provide-theme 'europe)