Mercurial > hg > xemacs-beta
view tests/gtk/gtk-embedded-test.el @ 5294:bbff29a01820
Add compiler macros and compilation sanity-checks for functions with keywords.
2010-10-25 Aidan Kehoe <kehoea@parhasard.net>
Add compiler macros and compilation sanity-checking for various
functions that take keywords.
* byte-optimize.el (side-effect-free-fns): #'symbol-value is
side-effect free and not error free.
* bytecomp.el (byte-compile-normal-call): Check keyword argument
lists for sanity; store information about the positions where
keyword arguments start using the new byte-compile-keyword-start
property.
* cl-macs.el (cl-const-expr-val): Take a new optional argument,
cl-not-constant, defaulting to nil, in this function; return it if
the expression is not constant.
(cl-non-fixnum-number-p): Make this into a separate function, we
want to pass it to #'every.
(eql): Use it.
(define-star-compiler-macros): Use the same code to generate the
member*, assoc* and rassoc* compiler macros; special-case some
code in #'add-to-list in subr.el.
(remove, remq): Add compiler macros for these two functions, in
preparation for #'remove being in C.
(define-foo-if-compiler-macros): Transform (remove-if-not ...) calls to
(remove ... :if-not) at compile time, which will be a real win
once the latter is in C.
(define-substitute-if-compiler-macros)
(define-subst-if-compiler-macros): Similarly for these functions.
(delete-duplicates): Change this compiler macro to use
#'plists-equal; if we don't have information about the type of
SEQUENCE at compile time, don't bother attempting to inline the
call, the function will be in C soon enough.
(equalp): Remove an old commented-out compiler macro for this, if
we want to see it it's in version control.
(subst-char-in-string): Transform this to a call to nsubstitute or
nsubstitute, if that is appropriate.
* cl.el (ldiff): Don't call setf here, this makes for a load-time
dependency problem in cl-macs.el
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 25 Oct 2010 13:04:04 +0100 |
| parents | cd167465bf69 |
| children | b9167d522a9a |
line wrap: on
line source
;; gtk-embedded-test.el --- test GTK embedding in another window ;; ;; Copyright 2000, 2001 William Perry ;; ;; 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 2, 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; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, ;; Boston, MA 02110-1301, USA. */ (gtk-define-test "Embedded XEmacs frame" xemacs-frame t (setq window (gtk-window-new 'toplevel)) (let ((table (gtk-table-new 5 3 nil)) (label nil) (entry nil) (frame (gtk-frame-new "Type mail message here..."))) (gtk-container-add window table) (setq label (gtk-label-new "To: ") entry (gtk-entry-new)) (gtk-table-attach table label 0 1 0 1 nil nil 0 0) (gtk-table-attach table entry 1 2 0 1 '(fill) '(fill) 0 0) (setq label (gtk-label-new "CC: ") entry (gtk-entry-new)) (gtk-table-attach table label 0 1 1 2 nil nil 0 0) (gtk-table-attach table entry 1 2 1 2 '(fill) '(fill) 0 0) (setq label (gtk-label-new "Subject: ") entry (gtk-entry-new)) (gtk-table-attach table label 0 1 2 3 nil nil 0 0) (gtk-table-attach table entry 1 2 2 3 '(fill) '(fill) 0 0) (gtk-table-attach table frame 0 2 3 4 '(expand fill) '(expand fill) 5 5) (gtk-widget-show-all window) (gdk-flush) (make-frame (list 'window-id frame 'unsplittable t 'menubar-visible-p nil 'default-toolbar-visible-p nil))))