Mercurial > hg > xemacs-beta
annotate nt/Emacs.ad.h @ 5632:bd80d9103fc8
Integrate CL code better into core, remove obsolete compatibility code.
lisp/ChangeLog addition:
2011-12-30 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
Call #'cl-compile-time-init explicitly here, don't rely on
bytecomp-load-hook for what is core functionality.
* cl-extra.el:
* cl-extra.el (require):
* cl-extra.el (make-random-state):
* cl-extra.el (random-state-p):
* cl-extra.el (make-hashtable): Removed.
* cl-extra.el (make-weak-hashtable): Removed.
* cl-extra.el (make-key-weak-hashtable): Removed.
* cl-extra.el (make-value-weak-hashtable): Removed.
* cl-extra.el ('hashtablep): Removed.
* cl-extra.el ('hashtable-fullness): Removed.
* cl-extra.el ('hashtable-test-function): Removed.
* cl-extra.el ('hashtable-type): Removed.
* cl-extra.el ('hashtable-size): Removed.
* cl-extra.el ('copy-hashtable): Removed.
* cl-extra.el (cl-builtin-gethash): Removed.
* cl-extra.el (cl-builtin-remhash): Removed.
* cl-extra.el (cl-builtin-clrhash): Removed.
* cl-extra.el (cl-builtin-maphash): Removed.
* cl-extra.el ('cl-gethash): Removed.
* cl-extra.el ('cl-puthash): Removed.
* cl-extra.el ('cl-remhash): Removed.
* cl-extra.el ('cl-clrhash): Removed.
* cl-extra.el ('cl-maphash): Removed.
* cl-extra.el ('cl-make-hash-table): Removed.
* cl-extra.el ('cl-hash-table-p): Removed.
* cl-extra.el ('cl-hash-table-count): Removed.
* cl-extra.el (cl-prettyexpand):
* cl-extra.el (names):
Remove compatibility aliases from this file.
In #'cl-prettyexpand, if FULL is nil, don't expand return-from
either, for symmetry with not expanding block.
Drop cl-extra-load-hook, it's useless when cl-extra is dumped
(since third-party code can't use it, and dumped code shouldn't
use it.)
* cl-macs.el:
* cl-macs.el (cl-pop2):
* cl-macs.el (defun*):
* cl-macs.el (cl-parse-loop-clause):
Remove some no-longer-needed compatibility kludges.
* cl.el:
* cl.el ('cl-map-extents): Removed.
* cl.el (cl-random-time):
* cl.el (list*): New, moved back from subr.el, given a shorter
implementation.
* cl.el ('cl-member): Removed.
* cl.el ('cl-floor): Removed.
* cl.el ('cl-ceiling): Removed.
* cl.el ('cl-truncate): Removed.
* cl.el ('cl-round): Removed.
* cl.el ('cl-mod): Removed.
Remove some compatibility aliases; these may conflict with
package usage, in which case the packages need to be updated, the
new names are available in 21.4, and that's the most recent
version we support.
* cl.el (cl-hacked-flag): Removed.
* cl.el (cl-hack-byte-compiler): Removed.
* subr.el:
* subr.el (list*): Moved back to cl.el.
* update-elc-2.el (batch-update-elc-2):
* update-elc.el (do-autoload-commands):
Add an autoload for cl-compile-time-init in these two files, they
run on bare temacs, auto-autoload isn't available to them, and now
bytecomp calls cl-compile-time-init explicitly.
* cl-compat.el: Removed. This file was long obsolete.
man/ChangeLog addition:
2011-12-30 Aidan Kehoe <kehoea@parhasard.net>
* cl.texi (Top):
* cl.texi (Usage):
* cl.texi (Organization):
* cl.texi (Efficiency Concerns):
* cl.texi (Common Lisp Compatibility):
Remove documentation of cl-compat, now it's deleted.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Fri, 30 Dec 2011 16:05:31 +0000 |
parents | e01bac102bc0 |
children |
rev | line source |
---|---|
5452
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
1 /* Copyright (C) 1997 David Hobley |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
2 |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
3 This file is part of XEmacs. |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
4 |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
5 XEmacs is free software: you can redistribute it and/or modify it |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
6 under the terms of the GNU General Public License as published by the |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
7 Free Software Foundation, either version 3 of the License, or (at your |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
8 option) any later version. |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
9 |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
10 XEmacs is distributed in the hope that it will be useful, but WITHOUT |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
13 for more details. |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
14 |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
15 You should have received a copy of the GNU General Public License |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
16 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
17 |
e01bac102bc0
nt/Emacs.ad.h attributed to David Hobley plus license added.
Mats Lidell <matsl@xemacs.org>
parents:
100
diff
changeset
|
18 |
100 | 19 (String) "Emacs.modeline*attributeForeground: Black", |
20 (String) "Emacs.modeline*attributeBackground: Gray75", | |
21 (String) "Emacs.text-cursor*attributeBackground: Red3", | |
22 (String) "*menubar*Foreground: Gray30", | |
23 (String) "*menubar*Background: Gray75", | |
24 (String) "*menubar*buttonForeground: Blue", | |
25 (String) "*XlwMenu*selectColor: ForestGreen", | |
26 (String) "*XmToggleButton*selectColor: ForestGreen", | |
27 (String) "*popup*Foreground: Black", | |
28 (String) "*popup*Background: Gray75", | |
29 (String) "*dialog*Foreground: Black", | |
30 (String) "*dialog*Background: #A5C0C1", | |
31 (String) "*dialog*XmTextField*Background: WhiteSmoke", | |
32 (String) "*dialog*XmText*Background: WhiteSmoke", | |
33 (String) "*dialog*XmList*Background: WhiteSmoke", | |
34 (String) "*dialog*Command*Background: WhiteSmoke", | |
35 (String) "*XlwScrollBar*Foreground: Gray30", | |
36 (String) "*XlwScrollBar*Background: Gray75", | |
37 (String) "*XmScrollBar*Foreground: Gray30", | |
38 (String) "*XmScrollBar*Background: Gray75", | |
39 (String) "*topToolBarShadowColor: Gray90", | |
40 (String) "*bottomToolBarShadowColor: Gray40", | |
41 (String) "*backgroundToolBarColor: Gray75", | |
42 (String) "*toolBarShadowThickness: 2", | |
43 (String) "*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", | |
44 (String) "*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", | |
45 (String) "*XmDialogShell*FontList: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", | |
46 (String) "*XmTextField*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", | |
47 (String) "*XmText*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", | |
48 (String) "*XmList*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", | |
49 (String) "*Dialog*Font: -*-helvetica-bold-r-*-*-*-140-*-*-*-*-iso8859-*", | |
50 (String) "*dialog*button1.accelerators:#override\ | |
51 <KeyPress>Return: ArmAndActivate()\\n\ | |
52 <KeyPress>KP_Enter: ArmAndActivate()\\n\ | |
53 Ctrl<KeyPress>m: ArmAndActivate()\\n", | |
54 (String) "*XmTextField*translations: #override\\n\ | |
55 !<Key>osfBackSpace: delete-previous-character()\\n\ | |
56 !<Key>osfDelete: delete-previous-character()\\n\ | |
57 !Ctrl<Key>h: delete-previous-character()\\n\ | |
58 !Ctrl<Key>d: delete-next-character()\\n\ | |
59 !Meta<Key>osfDelete: delete-previous-word()\\n\ | |
60 !Meta<Key>osfBackSpace: delete-previous-word()\\n\ | |
61 !Meta<Key>d: delete-next-word()\\n\ | |
62 !Ctrl<Key>k: delete-to-end-of-line()\\n\ | |
63 !Ctrl<Key>g: process-cancel()\\n\ | |
64 !Ctrl<Key>b: backward-character()\\n\ | |
65 !<Key>osfLeft: backward-character()\\n\ | |
66 !Ctrl<Key>f: forward-character()\\n\ | |
67 !<Key>osfRight: forward-character()\\n\ | |
68 !Meta<Key>b: backward-word()\\n\ | |
69 !Meta<Key>osfLeft: backward-word()\\n\ | |
70 !Meta<Key>f: forward-word()\\n\ | |
71 !Meta<Key>osfRight: forward-word()\\n\ | |
72 !Ctrl<Key>e: end-of-line()\\n\ | |
73 !Ctrl<Key>a: beginning-of-line()\\n\ | |
74 !Ctrl<Key>w: cut-clipboard()\\n\ | |
75 !Meta<Key>w: copy-clipboard()\\n\ | |
76 <Btn2Up>: copy-primary()\\n", | |
77 (String) "*dialog*XmPushButton*translations:#override\\n\ | |
78 <Btn1Down>: Arm()\\n\ | |
79 <Btn1Down>,<Btn1Up>: Activate()\ | |
80 Disarm()\\n\ | |
81 <Btn1Down>(2+): MultiArm()\\n\ | |
82 <Btn1Up>(2+): MultiActivate()\\n\ | |
83 <Btn1Up>: Activate()\ | |
84 Disarm()\\n\ | |
85 <Key>osfSelect: ArmAndActivate()\\n\ | |
86 <Key>osfActivate: ArmAndActivate()\\n\ | |
87 <Key>osfHelp: Help()\\n\ | |
88 ~Shift ~Meta ~Alt <Key>Return: ArmAndActivate()\\n\ | |
89 <EnterWindow>: Enter()\\n\ | |
90 <LeaveWindow>: Leave()\\n", | |
91 (String) "*ximStyles: XIMPreeditPosition|XIMStatusArea\ | |
92 XIMPreeditPosition|XIMStatusNothing\ | |
93 XIMPreeditPosition|XIMStatusNone\ | |
94 XIMPreeditNothing|XIMStatusArea\ | |
95 XIMPreeditNothing|XIMStatusNothing\ | |
96 XIMPreeditNothing|XIMStatusNone\ | |
97 XIMPreeditNone|XIMStatusArea\ | |
98 XIMPreeditNone|XIMStatusNothing\ | |
99 XIMPreeditNone|XIMStatusNone", | |
100 (String) "*EmacsFrame.ximForeground: black", | |
101 (String) "*EmacsFrame.ximBackground: white", |