annotate tests/gtk/xemacs-toolbar.el @ 4448:fd8a9a4d81d9
Support #!, to allow XEmacs to be called as a script interpreter.
ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* Makefile.in.in (SHEBANG_PROGNAME):
New variable; a symbol link to the XEmacs binary to tell it it
should read a script from stdin.
* configure.ac (XE_EXPAND_VARIABLE):
Set SHEBANG_PROGNAME.
* configure:
Regenerate.
src/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* config.h.in: Add SHEBANG_PROGNAME.
* emacs.c (main_1):
If we've been called using SHEBANG_PROGNAME, rewrite our arguments
to add a --script argument.
Also, handle the --script argument by setting noninteractive and
vanilla.
* lread.c (Fload_internal):
If the first two characters of a file are #!, replace them with ;!
before they get to the Lisp reader.
lisp/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* startup.el (command-line-do-script): New.
(command-switch-alist): Use command-line-do-script.
New argument, compatible with GNU; --script or -script says "treat
the following argument as a file to load in batch mode".
man/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* xemacs/cmdargs.texi (Command Switches):
Describe --script, -script.
author |
Aidan Kehoe <kehoea@parhasard.net> |
date |
Sun, 20 Jan 2008 19:53:54 +0100 |
parents |
0784d089fdc9 |
children |
db7068430402 |
rev |
line source |
462
|
1 (defvar gtk-torture-test-toolbar-open-active-p t)
|
|
2
|
|
3 (defvar gtk-torture-test-toolbar
|
|
4 '([toolbar-file-icon
|
|
5 (lambda ()
|
|
6 (setq gtk-torture-test-toolbar-open-active-p (not gtk-torture-test-toolbar-open-active-p)))
|
|
7 gtk-torture-test-toolbar-open-active-p
|
|
8 "Dynamic enabled-p slot... broken in XEmacs 21.1.x"]
|
|
9 [:size 35 :style 3d]
|
|
10 [toolbar-folder-icon toolbar-dired t "Edit a directory"]
|
|
11 [:size 35 :style 2d]
|
|
12 [toolbar-news-icon toolbar-news t "Read news"]
|
|
13 nil
|
|
14 [toolbar-info-icon toolbar-info t "Info documentation"]
|
|
15 ))
|
|
16
|
|
17 (defun gtk-torture-test-toolbar ()
|
|
18 (interactive)
|
|
19 (switch-to-buffer (get-buffer-create "Toolbar testing"))
|
|
20 (set-specifier default-toolbar gtk-torture-test-toolbar (current-buffer))
|
|
21 (set-specifier default-toolbar-visible-p t (current-buffer)))
|