From: Bruno Haible <bruno@clisp.org>
Date: Tue, 31 Jul 2001 13:53:12 +0000 (+0000)
Subject: abbrev-table.
X-Git-Tag: v0.11~577
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0142dbe47ca91e2ea9328950d83807baf56b25b6;p=thirdparty%2Fgettext.git

abbrev-table.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index a54090cdb..81b18d3a4 100644
--- 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 6087f4ca3..fe12dc8fd 100644
--- 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))