From: bg66 <bg66>
Date: Fri, 10 May 2002 22:17:39 +0000 (+0000)
Subject: * lisp/initz-list.el (toplevel): Require `easymenu'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=080008b8a785608e305d156cbb8608b18fd0f47a;p=elisp%2Finitz.git

* lisp/initz-list.el (toplevel): Require `easymenu'.
(initz-list-mode-menu): New variable.
(initz-list-mode-map): Use it.
(initz-list-mode): Ditto.
* lisp/initz-error.el (initz-error-mode-menu): Require `easymenu'.
(initz-error-mode-menu): New variable.
(initz-error-mode-map): Use it.
(initz-error-mode): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 26c5289..0402c2e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2002-05-10  OHASHI Akira  <bg66@koka-in.org>
+
+	* lisp/initz-list.el (toplevel): Require `easymenu'.
+	(initz-list-mode-menu): New variable.
+	(initz-list-mode-map): Use it.
+	(initz-list-mode): Ditto.
+	* lisp/initz-error.el (initz-error-mode-menu): Require `easymenu'.
+	(initz-error-mode-menu): New variable.
+	(initz-error-mode-map): Use it.
+	(initz-error-mode): Ditto.
+
 2002-05-03  OHASHI Akira  <bg66@koka-in.org>
 
 	* README (Development): Fix typo.
diff --git a/lisp/initz-error.el b/lisp/initz-error.el
index 634fead..2537ad2 100644
--- a/lisp/initz-error.el
+++ b/lisp/initz-error.el
@@ -29,10 +29,22 @@
 ;;; Code:
 
 (require 'emu)
+(require 'easymenu)
 (require 'initz-globals)
 (require 'initz)
 (require 'initz-list)
 
+(defvar initz-error-mode-menu
+  '("Initz"
+    ["View" initz-error-find-file t]
+    ["Byte-compile" initz-error-byte-compile-file t]
+    ["Delete" initz-error-delete-file t]
+    ["Load" initz-error-load-file t]
+    "----"
+    ["Startup" initz-startup t]
+    "----"
+    ["Quit" initz-error-quit t]))
+
 (defvar initz-error-mode-map nil
   "Local map for initz error buffers.")
 (unless initz-error-mode-map
@@ -51,6 +63,9 @@
       (define-key map "L" 'initz-error-load-file)
       (define-key map "S" 'initz-startup)
       (define-key map "q" 'initz-error-quit)
+      (easy-menu-define initz-error-mode-nemu map
+			"Menu Used in 'initz-error-mode'."
+			initz-error-mode-menu)
       (setq initz-error-mode-map map)))
 
 (defvar initz-error-node-map nil)
@@ -247,6 +262,7 @@
   (use-local-map initz-error-mode-map)
   (setq mode-name initz-error-mode-name)
   (setq major-mode 'initz-error-mode)
+  (easy-menu-add initz-error-mode-menu)
   (when (or (featurep 'xemacs) (< emacs-major-version 21))
     (make-local-hook 'post-command-hook))
   (add-hook 'post-command-hook 'initz-error-print-file)
diff --git a/lisp/initz-list.el b/lisp/initz-list.el
index af56b0a..e6dc7b0 100644
--- a/lisp/initz-list.el
+++ b/lisp/initz-list.el
@@ -29,9 +29,22 @@
 ;;; Code:
 
 (require 'emu)
+(require 'easymenu)
 (require 'initz-globals)
 (require 'initz)
 
+(defvar initz-list-mode-menu
+  '("Initz"
+    ["View" initz-list-find-file t]
+    ["Byte-compile" initz-list-byte-compile-file t]
+    ["Delete" initz-list-delete-file t]
+    ["Load" initz-list-load-file t]
+    ["Make new file" initz-list-new-file t]
+    "----"
+    ["Startup" initz-startup t]
+    "----"
+    ["Quit" initz-list-quit t]))
+
 (defvar initz-list-mode-map nil
   "Local map for initz list buffers.")
 (unless initz-list-mode-map
@@ -51,6 +64,9 @@
       (define-key map "N" 'initz-list-new-file)
       (define-key map "S" 'initz-startup)
       (define-key map "q" 'initz-list-quit)
+      (easy-menu-define initz-list-mode-nemu map
+			"Menu Used in 'initz-list-mode'."
+			initz-list-mode-menu)
       (setq initz-list-mode-map map)))
 
 (defvar initz-list-node-map nil)
@@ -433,6 +449,7 @@
   (use-local-map initz-list-mode-map)
   (setq mode-name initz-list-mode-name)
   (setq major-mode 'initz-list-mode)
+  (easy-menu-add initz-list-mode-menu)
   (when (or (featurep 'xemacs) (< emacs-major-version 21))
     (make-local-hook 'post-command-hook))
   (add-hook 'post-command-hook 'initz-list-print-file)