A commodity patch by Karl Eichwalder.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index aefb0d14a87b1a93a4f28911487406711c3a64c1..a8a423f7731cd9ca79bea67f0883c9c7de985a1b 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-03  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-subedit-exit): Run po-subedit-exit-hook before
+       leaving the edit buffer.
+
 2001-02-10  Bruno Haible  <haible@clisp.cons.org>
 
        * gettextize.in: Bail out if $gettext_dir doesn't exist.

diff --git a/misc/po-mode.el b/misc/po-mode.el
index d71e41a972d318888cafeb04b221e6e110494fde..7e0b02fbc8943a77de0b4c82aa291678d2f35c18 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -1811,6 +1811,7 @@ The string is properly recommented before the replacement occurs."
   (skip-chars-backward " \t\n")
   (if (eq (preceding-char) ?<)
       (delete-region (1- (point)) (point-max)))
+  (run-hooks 'po-subedit-exit-hook)
   (let ((string (buffer-string)))
     (po-subedit-abort)
     (po-find-span-of-entry)