diff options
| author | Bruno Haible <bruno@clisp.org> | 2001-08-14 16:47:12 +0000 |
|---|---|---|
| committer | Bruno Haible <bruno@clisp.org> | 2001-08-14 16:47:12 +0000 |
| commit | 46de0941dcd108cb7e3afb6741066103343f2e9b (patch) | |
| tree | 8a8e40fc0a22666994293e61aa503216bd736946 /misc | |
| parent | 8af193fbf37556ba3797f59cbdc78439f7c32224 (diff) | |
| download | external_gettext-46de0941dcd108cb7e3afb6741066103343f2e9b.zip external_gettext-46de0941dcd108cb7e3afb6741066103343f2e9b.tar.gz external_gettext-46de0941dcd108cb7e3afb6741066103343f2e9b.tar.bz2 | |
Add menu.
Diffstat (limited to 'misc')
| -rw-r--r-- | misc/ChangeLog | 5 | ||||
| -rw-r--r-- | misc/po-mode.el | 14 |
2 files changed, 18 insertions, 1 deletions
diff --git a/misc/ChangeLog b/misc/ChangeLog index 9f91e01..b34c8ce 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 b14c197..b692dad 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))))) |