diff lisp/x11/x-toolbar.el @ 189:489f57a838ef r20-3b21

Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents b405438285a2
children a2f645c6b9f8
line wrap: on
line diff
--- a/lisp/x11/x-toolbar.el	Mon Aug 13 09:56:30 2007 +0200
+++ b/lisp/x11/x-toolbar.el	Mon Aug 13 09:57:07 2007 +0200
@@ -1,8 +1,12 @@
-;; Toolbar support for X.
+;;; x-toolbar.el -- Runtime initialization of XEmacs toolbar
+;; Copyright (C) 1997 Free Software Foundation, Inc.
 ;; Copyright (C) 1994 Andy Piper <andyp@parallax.demon.co.uk>
 ;; Copyright (C) 1995 Board of Trustees, University of Illinois
 ;; Copyright (C) 1996 Ben Wing <wing@666.com>
 
+;; Maintainer: XEmacs development team
+;; Keywords: frames
+
 ;; This file is part of XEmacs.
 
 ;; XEmacs is free software; you can redistribute it and/or modify it
@@ -20,10 +24,14 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;
+;;; Synched up:  Not synched
+
+;;; Commentary:
+
 ;; Miscellaneous toolbar functions, useful for users to redefine, in
 ;; order to get different behaviour.
-;;
+
+;;; Code:
 
 (eval-when-compile
   (require 'pending-del))
@@ -388,27 +396,28 @@
     ;; sometimes when this is evaluated.  Note that I even tried to
     ;; kludge-fix this by calls to `set-specifier-dirty-flag' in
     ;; pop-window-configuration and such.
-    
+
     ;;[toolbar-next-win-icon	unpop-window-configuration
     ;;(frame-property (selected-frame)
     ;;	'window-config-unpop-stack) t "Undo \"Most recent window config\""]
     ;; #### Illicit knowledge?
-    
-    [toolbar-file-icon		toolbar-open	t	"Open a file"	]
+
+    [toolbar-file-icon		toolbar-open	t	"Open a file"]
     [toolbar-folder-icon	toolbar-dired	t	"View directory"]
-    [toolbar-disk-icon		toolbar-save	t	"Save buffer"	]
-    [toolbar-printer-icon	toolbar-print	t	"Print buffer"	]
+    [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 edit"	]
-    [toolbar-spell-icon		toolbar-ispell	t	"Spellcheck"	]
-    [toolbar-replace-icon	toolbar-replace	t	"Replace text"	]
-    [toolbar-mail-icon		toolbar-mail	t	"Mail"		]
-    [toolbar-info-icon		toolbar-info	t	"Information"	]
-    [toolbar-compile-icon	toolbar-compile	t	"Compile"	]
-    [toolbar-debug-icon		toolbar-debug	t	"Debug"		]
-    [toolbar-news-icon		toolbar-news	t	"News"		])
+    [toolbar-undo-icon		toolbar-undo	t	"Undo edit"]
+    [toolbar-spell-icon		toolbar-ispell	t	"Spellcheck"]
+    [toolbar-replace-icon	toolbar-replace	t	"Replace text"]
+    ;; [toolbar-mail-icon		toolbar-mail	t	"Mail"]
+    [toolbar-info-icon		toolbar-info	t	"Information"]
+    [toolbar-compile-icon	toolbar-compile	t	"Compile"]
+    [toolbar-debug-icon		toolbar-debug	t	"Debug"]
+    ;; [toolbar-news-icon		toolbar-news	t	"News"]
+)
   "The initial toolbar for a buffer.")
 
 (defun x-init-toolbar-from-resources (locale)