Mercurial > hg > xemacs-beta
view tests/gtk/gtk-extra-test.el @ 5374:d967d96ca043
Conditionalise the old-* functions and byte codes at compile time.
src/ChangeLog addition:
2011-03-15 Aidan Kehoe <kehoea@parhasard.net>
* config.h.in (SUPPORT_CONFOUNDING_FUNCTIONS): New #define,
equivalent NEED_TO_HANDLE_21_4_CODE by default, describing whether
this XEmacs should support the old-eq, old-equal and related
functions and byte codes.
* bytecode.c (UNUSED):
Only interpret old-eq, old-equal, old-memq if
SUPPORT_CONFOUNDING_FUNCTIONS is defined.
* data.c:
Move Fold_eq to fns.c with the rest of the Fold_* functions.
* fns.c:
* fns.c (Fmemq):
* fns.c (memq_no_quit):
* fns.c (assoc_no_quit):
* fns.c (Frassq):
* fns.c (Fequal):
* fns.c (Fold_equal):
* fns.c (syms_of_fns):
Group old-eq, old-equal, old-memq etc together, surround them with
#ifdef SUPPORT_CONFOUNDING_FUNCTIONS.
lisp/ChangeLog addition:
2011-03-15 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
Don't generate the old-eq, old-memq, old-equal bytecodes any more,
but keep the information about them around for the sake of the
disassembler.
man/ChangeLog addition:
2011-03-15 Aidan Kehoe <kehoea@parhasard.net>
* lispref/objects.texi (Character Type):
* lispref/objects.texi (Equality Predicates):
No longer document `old-eq', `old-equal', they haven't been used
in years.
tests/ChangeLog addition:
2011-03-17 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Only test the various old-* function if old-eq is bound and a
subr.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 17 Mar 2011 20:13:00 +0000 |
| parents | cd167465bf69 |
| children | b9167d522a9a |
line wrap: on
line source
;; gtk-extra-test.el --- test extra GTK widgets ;; ;; 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. */ (require 'gtk-extra) (gtk-define-test "Color Combo" extra color-combo nil (let ((combo (gtk-color-combo-new))) (gtk-box-pack-start window combo nil nil 0))) (gtk-define-test "Directory Tree" extra dirtree nil (let ((dir (gtk-dir-tree-new))) (gtk-box-pack-start window dir nil nil 0) (gtk-dir-tree-open-dir dir "/"))) (gtk-define-test "File List" extra filelist nil (let ((scrolled (gtk-scrolled-window-new nil nil)) (list (gtk-file-list-new 32 2 "/"))) (gtk-scrolled-window-add-with-viewport scrolled list) (put scrolled 'height 200) (gtk-box-pack-start window scrolled t t 0))) (gtk-define-test "Font Combo" extra fontcombo nil (let ((fc (gtk-font-combo-new))) (gtk-box-pack-start window fc t t 0)))