* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)