(when (featurep 'toolbar)
(setq
toolbar-info-use-separate-frame nil
toolbar-mail-reader 'gnus
toolbar-news-use-separate-frame nil)
(customize-set-variable 'toolbar-captioned-p nil))
(setq edit-toolbar-added-buttons-alist 'nil)
(mapcar
(lambda (cons)
(setf (symbol-value (car cons)) (toolbar-make-button-list (cdr cons))))
edit-toolbar-added-buttons-alist)
(defun toolbar-redo ()
(interactive)
(call-interactively 'redo))
(defvar toolbar-redo-icon
(toolbar-make-button-list
(expand-file-name "redo.xpm"
(file-name-as-directory
(expand-file-name "etc/XEmacs"
(getenv "HOME"))))))
(set-specifier default-toolbar
'([toolbar-file-icon toolbar-open t "Open a file"]
[toolbar-folder-icon toolbar-dired t "Edit a directory"]
[toolbar-disk-icon toolbar-save t "Save buffer"]
[toolbar-printer-icon toolbar-print t "Print buffer"]
[toolbar-cut-icon toolbar-cut t "Kill region"]
[toolbar-copy-icon toolbar-copy t "Copy region"]
[toolbar-paste-icon toolbar-paste t "Paste from clipboard"]
[toolbar-undo-icon toolbar-undo t "Undo"]
[toolbar-redo-icon toolbar-redo t "Redo"]
[toolbar-spell-icon toolbar-ispell t "Check spelling"]
[toolbar-replace-icon toolbar-replace t "Search & Replace"]
[toolbar-compile-icon toolbar-compile t "Start a compilation"]
[toolbar-debug-icon toolbar-debug t "Start a debugger"]
[toolbar-news-icon toolbar-news t "Gnus"]
nil
[toolbar-info-icon toolbar-info t "Don't Panic!!"]))
Copyright © 2003 Steve Youngs
Verbatim copying and distribution is permitted in any medium,
providing this notice is preserved.
Last modified: Sat Oct 18 02:17:13 EST 2003