From: Bruno Haible <bruno@clisp.org>
Date: Tue, 14 Aug 2001 16:47:12 +0000 (+0000)
Subject: Add menu.
X-Git-Tag: v0.11~549
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=46de0941dcd108cb7e3afb6741066103343f2e9b;p=thirdparty%2Fgettext.git

Add menu.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 9f91e0118..b34c8ce9e 100644
--- 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 b14c197b6..b692dad2b 100644
--- 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)))))