Mercurial > hg > xemacs-beta
view src/EmacsShell.h @ 5615:5f4f92a31875
Move the functionality of #'cl-macroexpand into Fmacroexpand, eval.c
src/ChangeLog addition:
2011-12-22 Aidan Kehoe <kehoea@parhasard.net>
* eval.c (Fmacroexpand): Rename Fmacroexpand_internal, add the
functionality that used to be in #'cl-macroexpand--it makes no
sense for us, and needlessly slows things down, to have two
separate functions.
* eval.c:
* eval.c (syms_of_eval):
Move byte-compile-macro-environment here, now it's used by
#'macroexpand.
lisp/ChangeLog addition:
2011-12-22 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp-runtime.el:
* bytecomp-runtime.el (byte-compile-macro-environment): Moved to
eval.c.
* cl.el:
* cl.el ('cl-macroexpand): New alias.
* cl.el ('macroexpand-internal): New alias.
* cl.el (cl-macroexpand): Move the functionality of this to
#'macroexpand (formerly #'macroexpand-internal) in eval.c; since
CL is always loaded in XEmacs, it brings nothing and slows things
down to have the two functions separate.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 22 Dec 2011 12:51:03 +0000 |
parents | 308d34e9f07d |
children |
line wrap: on
line source
/* Emacs shell widget external header file. Copyright (C) 1994 Sun Microsystems, Inc. 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/>. */ /* Synched up with: Not in FSF. */ /* Written by Ben Wing, May, 1994. */ #ifndef INCLUDED_EmacsShell_h_ #define INCLUDED_EmacsShell_h_ #ifndef XtNwidthCells #define XtNwidthCells "widthCells" #endif #ifndef XtCWidthCells #define XtCWidthCells "WidthCells" #endif #ifndef XtNheightCells #define XtNheightCells "heightCells" #endif #ifndef XtCHeightCells #define XtCHeightCells "HeightCells" #endif #ifndef XtNminWidthCells #define XtNminWidthCells "minWidthCells" #endif #ifndef XtCMinWidthCells #define XtCMinWidthCells "MinWidthCells" #endif #ifndef XtNminHeightCells #define XtNminHeightCells "minHeightCells" #endif #ifndef XtCMinHeightCells #define XtCMinHeightCells "MinHeightCells" #endif typedef struct _TopLevelEmacsShellClassRec *TopLevelEmacsShellWidgetClass; typedef struct _TopLevelEmacsShellRec *TopLevelEmacsShellWidget; extern WidgetClass topLevelEmacsShellWidgetClass; typedef struct _TransientEmacsShellClassRec *TransientEmacsShellWidgetClass; typedef struct _TransientEmacsShellRec *TransientEmacsShellWidget; extern WidgetClass transientEmacsShellWidgetClass; void EmacsShellUpdateSizeHints (Widget gw); void TopLevelEmacsShellUpdateSizeHints (Widget gw); void TransientEmacsShellUpdateSizeHints (Widget gw); void EmacsShellSetSizeUserSpecified (Widget gw); void EmacsShellSetPositionUserSpecified (Widget gw); void EmacsShellSmashIconicHint (Widget shell, int iconic_p); #endif /* INCLUDED_EmacsShell_h_ */