Mercurial > hg > xemacs-beta
view 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 |
line wrap: on
line source
/* Copyright (C) 1997 David Hobley 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. */ (String) "Emacs.modeline*attributeForeground: Black", (String) "Emacs.modeline*attributeBackground: Gray75", (String) "Emacs.text-cursor*attributeBackground: Red3", (String) "*menubar*Foreground: Gray30", (String) "*menubar*Background: Gray75", (String) "*menubar*buttonForeground: Blue", (String) "*XlwMenu*selectColor: ForestGreen", (String) "*XmToggleButton*selectColor: ForestGreen", (String) "*popup*Foreground: Black", (String) "*popup*Background: Gray75", (String) "*dialog*Foreground: Black", (String) "*dialog*Background: #A5C0C1", (String) "*dialog*XmTextField*Background: WhiteSmoke", (String) "*dialog*XmText*Background: WhiteSmoke", (String) "*dialog*XmList*Background: WhiteSmoke", (String) "*dialog*Command*Background: WhiteSmoke", (String) "*XlwScrollBar*Foreground: Gray30", (String) "*XlwScrollBar*Background: Gray75", (String) "*XmScrollBar*Foreground: Gray30", (String) "*XmScrollBar*Background: Gray75", (String) "*topToolBarShadowColor: Gray90", (String) "*bottomToolBarShadowColor: Gray40", (String) "*backgroundToolBarColor: Gray75", (String) "*toolBarShadowThickness: 2", (String) "*menubar*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*popup*Font: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*XmDialogShell*FontList: -*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*XmTextField*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*XmText*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*XmList*FontList: -*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", (String) "*Dialog*Font: -*-helvetica-bold-r-*-*-*-140-*-*-*-*-iso8859-*", (String) "*dialog*button1.accelerators:#override\ <KeyPress>Return: ArmAndActivate()\\n\ <KeyPress>KP_Enter: ArmAndActivate()\\n\ Ctrl<KeyPress>m: ArmAndActivate()\\n", (String) "*XmTextField*translations: #override\\n\ !<Key>osfBackSpace: delete-previous-character()\\n\ !<Key>osfDelete: delete-previous-character()\\n\ !Ctrl<Key>h: delete-previous-character()\\n\ !Ctrl<Key>d: delete-next-character()\\n\ !Meta<Key>osfDelete: delete-previous-word()\\n\ !Meta<Key>osfBackSpace: delete-previous-word()\\n\ !Meta<Key>d: delete-next-word()\\n\ !Ctrl<Key>k: delete-to-end-of-line()\\n\ !Ctrl<Key>g: process-cancel()\\n\ !Ctrl<Key>b: backward-character()\\n\ !<Key>osfLeft: backward-character()\\n\ !Ctrl<Key>f: forward-character()\\n\ !<Key>osfRight: forward-character()\\n\ !Meta<Key>b: backward-word()\\n\ !Meta<Key>osfLeft: backward-word()\\n\ !Meta<Key>f: forward-word()\\n\ !Meta<Key>osfRight: forward-word()\\n\ !Ctrl<Key>e: end-of-line()\\n\ !Ctrl<Key>a: beginning-of-line()\\n\ !Ctrl<Key>w: cut-clipboard()\\n\ !Meta<Key>w: copy-clipboard()\\n\ <Btn2Up>: copy-primary()\\n", (String) "*dialog*XmPushButton*translations:#override\\n\ <Btn1Down>: Arm()\\n\ <Btn1Down>,<Btn1Up>: Activate()\ Disarm()\\n\ <Btn1Down>(2+): MultiArm()\\n\ <Btn1Up>(2+): MultiActivate()\\n\ <Btn1Up>: Activate()\ Disarm()\\n\ <Key>osfSelect: ArmAndActivate()\\n\ <Key>osfActivate: ArmAndActivate()\\n\ <Key>osfHelp: Help()\\n\ ~Shift ~Meta ~Alt <Key>Return: ArmAndActivate()\\n\ <EnterWindow>: Enter()\\n\ <LeaveWindow>: Leave()\\n", (String) "*ximStyles: XIMPreeditPosition|XIMStatusArea\ XIMPreeditPosition|XIMStatusNothing\ XIMPreeditPosition|XIMStatusNone\ XIMPreeditNothing|XIMStatusArea\ XIMPreeditNothing|XIMStatusNothing\ XIMPreeditNothing|XIMStatusNone\ XIMPreeditNone|XIMStatusArea\ XIMPreeditNone|XIMStatusNothing\ XIMPreeditNone|XIMStatusNone", (String) "*EmacsFrame.ximForeground: black", (String) "*EmacsFrame.ximBackground: white",