Mercurial > hg > xemacs-beta
view lisp/gtk.el @ 5069:14f0dd1fabdb
move test-harness to lisp/ directory so it gets byte-compiled
-------------------- ChangeLog entries follow: --------------------
etc/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* dbxrc.in:
test-harness.el is in lisp directory now.
lisp/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* test-harness.el:
* test-harness.el (test-harness-from-buffer):
* test-harness.el (batch-test-emacs):
Move file from tests/automated into lisp/ so it gets
byte-compiled. This significantly reduces the amount of extra
crap in outputted backtraces. Delete hack in batch-test-emacs to
look for test-harness.el in the test directory since it's not there
any more.
Also, in `Check-Message', incorporate call to `Skip-Test-Unless'
in the macro output rather than its body, to avoid problems byte-
compiling the file -- `Skip-Test-Unless' isn't available in the
environment during byte-compilation so we can't call it then.
src/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* .gdbinit.in.in:
* Makefile.in.in (batch_test_emacs):
test-harness.el is in lisp directory now so change how we call it.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 22 Feb 2010 22:04:55 -0600 |
parents | db7068430402 |
children | ba07c880114a |
line wrap: on
line source
;; 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 02111-1301, USA. */ (globally-declare-fboundp '(gtk-import-function-internal gtk-call-function gtk-type-name gtk-import-function)) (globally-declare-boundp '(gtk-enumeration-info)) (gtk-import-function nil "gdk_flush") (defun gtk-describe-enumerations () "Show a list of all GtkEnum or GtkFlags objects available from lisp." (interactive) (set-buffer (get-buffer-create "*GTK Enumerations*")) (erase-buffer) (let ((separator (make-string (- (window-width) 3) ?-))) (maphash (lambda (key val) (insert separator "\n" (if (stringp key) key (gtk-type-name key)) "\n") (mapc (lambda (cell) (insert (format "\t%40s == %d\n" (car cell) (cdr cell)))) val)) gtk-enumeration-info)) (goto-char (point-min)) (display-buffer (current-buffer)))