abbrev-table.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index a54090cdb13e886da444ccd5d90410af8ddee968..81b18d3a4e54eeceeff71ad0f08661e5fae4e152 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-14  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-mode-abbrev-table): New variable.
+       (po-edit-string): Use it.
+
 2001-07-13  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-fade-out-entry): Replace yes-or-no-p by y-or-n-p;

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 6087f4ca302341a8f44cf880605c49378dc473dd..fe12dc8fd50841f9db0b48afcd3f00c29628bb51 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -794,6 +794,10 @@ Called through file-coding-system-alist, before the file is visited for real."
 
  )
 
+(defvar po-mode-abbrev-table nil
+  "Abbrev table used while in PO mode.")
+(define-abbrev-table 'po-mode-abbrev-table ())
+
 (defvar po-mode-map nil
   "Keymap for PO mode.")
 (if po-mode-map
@@ -1924,6 +1928,7 @@ Run functions on po-subedit-mode-hook."
          (pop-to-buffer edit-buffer)
          (set (make-local-variable 'po-subedit-back-pointer) slot)
          (setq buffer-file-coding-system edit-coding)
+         (setq local-abbrev-table po-mode-abbrev-table)
          (erase-buffer)
          (insert string "<")
          (goto-char (point-min))