Mercurial > hg > xemacs-beta
view tests/gtk/xemacs-toolbar.el @ 4597:7191a7b120f1
Some cosmetic namespace cleanup, glyphs.el, coding.el.
lisp/ChangeLog addition:
2009-01-15 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (force-coding-system-equivalency):
Move three functions that we don't want to advertise to being
anonymous lambdas instead.
* glyphs.el :
Remove #'define-constant-glyph and some functions it uses, replace
the latter with anonymous lambdas and the former and its uses with
a call to loop.
Do the same with #'define-obsolete-pointer-glyph and the functions
it uses.
(init-glyphs): Untern this symbol once the associated function has
been called; it's only needed at dump time, not at runtime.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 15 Jan 2009 19:21:43 +0000 |
| parents | 0784d089fdc9 |
| children | db7068430402 |
line wrap: on
line source
(defvar gtk-torture-test-toolbar-open-active-p t) (defvar gtk-torture-test-toolbar '([toolbar-file-icon (lambda () (setq gtk-torture-test-toolbar-open-active-p (not gtk-torture-test-toolbar-open-active-p))) gtk-torture-test-toolbar-open-active-p "Dynamic enabled-p slot... broken in XEmacs 21.1.x"] [:size 35 :style 3d] [toolbar-folder-icon toolbar-dired t "Edit a directory"] [:size 35 :style 2d] [toolbar-news-icon toolbar-news t "Read news"] nil [toolbar-info-icon toolbar-info t "Info documentation"] )) (defun gtk-torture-test-toolbar () (interactive) (switch-to-buffer (get-buffer-create "Toolbar testing")) (set-specifier default-toolbar gtk-torture-test-toolbar (current-buffer)) (set-specifier default-toolbar-visible-p t (current-buffer)))