* lisp/initz-list.el (toplevel): Require `easymenu'.

[elisp/initz.git] / lisp / initz-list.el

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)