Add menu.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 9f91e011857d0e3e4f0b996d2387e4a625a5ebc4..b34c8ce9e8ba609ed5ec5c3f4bbf865d836177ab 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-07  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-subedit-mode-menu-layout): New definition.
+       (po-edit-string): Use it to provide a menu for po-subedit-mode.
+
 2001-08-01  François Pinard  <pinard@iro.umontreal.ca>
 
        * po-mode.el (po-find-awk-string, po-mark-awk-string,

diff --git a/misc/po-mode.el b/misc/po-mode.el
index b14c197b6e74a1117220eb27d3ebe70689dc7935..b692dad2b50f616374629e4ec5b17d69069bba34 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -585,7 +585,13 @@ M-S  Ignore path          M-A  Ignore PO file      *M-L  Ignore lexicon
     ["Soft quit" po-confirm-and-quit t])
   "Menu layout for PO mode.")
 
-;; FIXME: subedit mode should also have its own layout.
+(defconst po-subedit-mode-menu-layout
+  '("PO-Edit"
+    ["Cycle through auxiliary files" po-subedit-cycle-auxiliary t]
+    "---"
+    ["Abort edit" po-subedit-abort t]
+    ["Exit edit" po-subedit-exit t])
+  "Menu layout for PO subedit mode.")
 
 (defconst po-subedit-message
   (_"Type `C-c C-c' once done, or `C-c C-k' to abort edit")
@@ -1936,6 +1942,12 @@ Run functions on po-subedit-mode-hook."
          (goto-char (point-min))
          (and expand-tabs (setq indent-tabs-mode nil))
          (use-local-map po-subedit-mode-map)
+         (if (fboundp 'easy-menu-define)
+             (progn
+               (easy-menu-define po-subedit-mode-menu po-subedit-mode-map ""
+                 po-subedit-mode-menu-layout)
+               (and po-XEMACS (easy-menu-add po-subedit-mode-menu))))
+         (set-syntax-table po-subedit-mode-syntax-table)
          (run-hooks 'po-subedit-mode-hook)
          (message po-subedit-message)))))