More po-subedit-mode cosmetics.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 2afd1971e3493800dab31786bced8a8e8d9434f0..3537ef6c229fcddd3b14b16defcb471813683725 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,6 +1,8 @@
-2001-11-10  Karl Eichwalder  <ke@suse.de>
+2001-11-12  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-subedit-mode-syntax-table): New variable.
+       (po-subedit-mode-map): Re-write according to po-mode-map and move
+       it to a better location.
 
 2001-11-10  Karl Eichwalder  <ke@suse.de>
 

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 926af5620193b480bd821569169286684767209a..1ae108d0afd1b5a3723220137fb742d71b67f81b 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -331,6 +331,10 @@ Normally \"gzip -9 | uuencode -m\", remove the -9 for lesser compression,
 or remove the -m if you are not using the GNU version of 'uuencode'."
   :type 'string
   :group 'po)
+
+(defvar po-subedit-mode-syntax-table
+  (copy-syntax-table text-mode-syntax-table)
+  "Syntax table used while in PO mode.")
 \f
 ;;; Emacs portability matters - part II.
 
@@ -951,10 +955,6 @@ Called through file-coding-system-alist, before the file is visited for real."
   "Abbrev table used while in PO mode.")
 (define-abbrev-table 'po-mode-abbrev-table ())
 
-(defvar po-subedit-mode-syntax-table
-  "Syntax table used while in PO mode."
-  (copy-syntax-table text-mode-syntax-table))
-
 (defvar po-mode-map
   ;; Use (make-keymap) because (make-sparse-keymap) does not work on Demacs.
   (let ((po-mode-map (make-keymap)))
@@ -1077,6 +1077,15 @@ all reachable through 'M-x customize', in group 'Emacs.Editing.I18n.Po'."
 
   (run-hooks 'po-mode-hook)
   (message (_"You may type 'h' or '?' for a short PO mode reminder.")))
+
+(defvar po-subedit-mode-map
+  ;; Use (make-keymap) because (make-sparse-keymap) does not work on Demacs.
+  (let ((po-subedit-mode-map (make-keymap)))
+    (define-key po-subedit-mode-map "\C-c\C-a" 'po-subedit-cycle-auxiliary)
+    (define-key po-subedit-mode-map "\C-c\C-c" 'po-subedit-exit)
+    (define-key po-subedit-mode-map "\C-c\C-k" 'po-subedit-abort)
+    po-subedit-mode-map)
+  "Keymap while editing a PO mode entry (or the full PO file).")
 \f
 ;;; Window management.
 
@@ -2008,15 +2017,6 @@ The string is properly recommented before the replacement occurs."
        (fundamental-mode)
        (message (_"Type 'M-x po-mode RET' once done")))))
 
-(defvar po-subedit-mode-map nil
-  "Keymap while editing a PO mode entry (or the full PO file).")
-(if po-subedit-mode-map
-    ()
-  (setq po-subedit-mode-map (make-sparse-keymap))
-  (define-key po-subedit-mode-map "\C-c\C-a" 'po-subedit-cycle-auxiliary)
-  (define-key po-subedit-mode-map "\C-c\C-c" 'po-subedit-exit)
-  (define-key po-subedit-mode-map "\C-c\C-k" 'po-subedit-abort))
-
 (defun po-subedit-abort ()
   "Exit the subedit buffer, merely discarding its contents."
   (interactive)