--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/packages/big-menubar.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,227 @@
+;; big-menubar.el --- an alternate menubar
+
+;; Copyright (C) 1994 Free Software Foundation, Inc.
+
+;; Author: Dror Caspi <dcaspi@qualcomm.com>
+;; Modified by: jwz and allender and haydens@ll.mit.edu
+;; Keywords: mouse
+
+;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Synched up with: Not in FSF.
+
+;;; Code:
+
+;;
+;; Remove redundant macro commands
+;;
+(delete-menu-item '("Edit" "Start Macro Recording"))
+(delete-menu-item '("Edit" "End Macro Recording"))
+(delete-menu-item '("Edit" "Execute Last Macro"))
+
+(defconst big-menubar
+  (purecopy-menubar
+   (list
+    (assoc "File" default-menubar)
+    (append
+     (assoc "Edit" default-menubar)
+     '("---"
+       ("Mark"
+	["Here"				set-mark-command		t]
+	["Word"				mark-word			t]
+	["Sentence"			mark-end-of-sentence		t]
+	["Paragraph"			mark-paragraph			t]
+	["Page"				mark-page			t]
+	["Balanced Expression"		mark-sexp			t]
+	["Lisp Function"		mark-defun			t]
+	["C Function"			mark-c-function			t]
+	["Whole Buffer"			mark-whole-buffer		t]
+	)
+       "---"
+       ("Search"
+	["Forward..."			isearch-forward			t]
+	["Backward..."			isearch-backward		t]
+	"---"
+	["Regexp Forward..."		isearch-forward-regexp		t]
+	["Regexp Backward..."		isearch-backward-regexp		t]
+	"---"
+	["Words Forward..."		word-search-forward		t]
+	["Words Backward..."		word-search-backward		t]
+	)
+       ("Replace"
+	["Query..."			query-replace			t]
+	["Regexp Query..."		query-replace-regexp		t]
+	"---"
+	["All..."			replace-string			t]
+	["Regexp All..."		replace-regexp			t]
+	)
+       "---"
+       ("Transpose"
+	["Characters"			transpose-chars			t]
+	["Words"			transpose-words			t]
+	["Lines"			transpose-lines			t]
+	["Sentences"			transpose-sentences		t]
+	["Paragraphs"			transpose-paragraphs		t]
+	["Balanced Expressions"		transpose-sexps			t]
+	)
+       "---"
+       ("Register"
+	["Copy to Register..."		copy-to-register		(mark)]
+	["Paste Register..."		insert-register			t]
+	"---"
+	["Save Point to Register"	point-to-register		t]
+	["Jump to Register"		register-to-point		t]
+	)
+       ("Rectangles"
+	["Kill Rectangle"		kill-rectangle			t]
+	["Yank Rectangle"		yank-rectangle			t]
+	["Rectangle to Register"	copy-rectangle-to-register	t]
+	["Rectangle from Register"	insert-register			t]
+	)
+       "---"
+       ("Sort"
+	["Lines"			sort-lines			(mark)]
+	["Paragraphs"			sort-paragraphs			(mark)]
+	["Pages"			sort-pages			(mark)]
+	["Columns"			sort-columns			(mark)]
+	["Regexp..."			sort-regexp-fields		(mark)]
+	)
+       ("Center"
+	["Line"				center-line			t]
+	["Paragraph"			center-paragraph		t]
+	["Region"			center-region			(mark)]
+	)
+       ("Indent"
+	["As Previous Line"		indent-relative			t]
+	["To Column..."			indent-to-column		t]
+	"---"
+	["Region"			indent-region			(mark)]
+	["Balanced Expression"		indent-sexp			t]
+	["C Expression"			indent-c-exp			t]
+	)
+       "---"
+       ("Narrow"
+	["To Region"			narrow-to-region		(mark)]
+	["To Page"			narrow-to-page			t]
+	"---"
+	["Cancel"			widen
+	 (not (and (= (point-min) 1) (= (point-max) (1+ (buffer-size)))))]
+	)
+       ))
+    (assoc "Options" default-menubar)
+    '("Motion"
+      ["Goto Mark"			exchange-point-and-mark	     (mark t)]
+      ["Goto Line..."			goto-line			t]
+      "---"
+      ["End of Balanced Parentheses ( )"	forward-list		t]
+      ["Beginning of Balanced Parentheses ( )"	backward-list		t]
+      ["Next Opening Parenthesis ("		down-list		t]
+      ["Previous Opening Parenthesis ("		backward-up-list	t]
+      ["Next Closing Parenthesis )"		up-list			t]
+      "---"
+      ["End of Balanced Expression"		forward-sexp		t]
+      ["Beginning of Balanced Expression"	backward-sexp		t]
+      "---"
+      ["End of Function"		end-of-defun		t]
+      ["Beginning of Function"		beginning-of-defun		t]
+      "---"
+      ["Next Page"			forward-page			t]
+      ["Previous Page"			backward-page			t]
+      "---"
+      ["End of Buffer"			end-of-buffer			t]
+      ["Beginning of Buffer"		beginning-of-buffer		t]
+      "---"
+      ["Save Current Position..."	point-to-register		t]
+      ["Goto Saved Position..."		register-to-point		t]
+      "---"
+      ["Set Marker..."			set-user-marker			t]
+      ["Goto Marker..."			goto-user-marker		t]
+      ["List Markers"			list-markers			t]
+      "---"
+      ["Set Goal Column"		set-goal-column			t]
+      ["Cancel Goal Column"		(set-goal-column t)	goal-column]
+      )
+    '("Run"
+      ["Compile..."			compile				t]
+      ["Kill Compilation"		kill-compilation		t]
+      "---"
+      ["Next Error"			next-error			t]
+      ["Previous Error"			previous-error			t]
+      ["Goto Error"			compile-goto-error		t]
+      "---"
+      ["GDB Debugger"			gdb				t]
+      )
+    '("Utilities"
+      ["Shell"				shell				t]
+      "---"
+      ("Mail"
+       ["Send"				mail				t]
+       ["Read"				rmail				t]
+       ["Read Folder..."		rmail-input			t]
+       )
+      ["Dired..."			dired				t]
+      "---"
+      ["Grep..."			grep				t]
+      ("Tags"
+       ["Set Tags Table File..."	visit-tags-table		t]
+       "---"
+       ["Show Occurrence..."		find-tag			t]
+       ["Show Occurrence (Other)..."	find-tag-other-window		t]
+       ["Next Occurrence"		(find-tag nil)			t]
+       ["Next Occurrence (Other)"	(find-tag-other-window nil)	t]
+       "---"
+       ["Search by Tags..."		tags-search			t]
+       ["Query Replace by Tags..."	tags-query-replace		t]
+       ["Continue Search/Replace"	tags-loop-continue		t]
+       "---"
+       ["Next File"			next-file			t]
+       "---"
+       ["List Tags in File..."		list-tags			t]
+       ["List Tags by Regexp..."	tags-apropos			t]
+       )
+      "---"
+      ("Spell Check"
+       ["Word"				ispell-word			t]
+       ["Complete Word"			ispell-complete-word		t]
+       ["Region"			ispell-region			t]
+       ["Whole Buffer"			ispell-buffer			t]
+       )
+      "---"
+      ("Compare Windows"
+       ["Exact Match"			compare-windows			t]
+       ["Ignore White Space"		(compare-windows t)		t]
+       )
+      "---"
+      ["Hex Edit File..."		hexl-find-file			t]
+      )
+    '("Macro"
+      ["Start Macro Recording"		start-kbd-macro
+					(not defining-kbd-macro)]
+      ["End Macro Recording"		end-kbd-macro	    defining-kbd-macro]
+      ["Name Last Macro..."		name-last-kbd-macro	last-kbd-macro]
+      ["Insert Macro in Buffer..."	insert-kbd-macro		     t]
+      ["Execute Last Macro"		call-last-kbd-macro	last-kbd-macro]
+      )
+    '("Buffers"
+      :filter buffers-menu-filter
+      ["List All Buffers" list-buffers t]
+      "---")
+    nil
+    (assoc "Help" default-menubar)
+    )))
+
+(set-menubar big-menubar)