Remove po-subedit-exit-old function.

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index 21c37986cfc9fe196a4e7cda307558556d53e93d..f25c163ee53cc609e0bfa816b5565c5e80bff28d 100644 (file)
--- a/gettext-tools/misc/ChangeLog
+++ b/gettext-tools/misc/ChangeLog
@@ -1,5 +1,7 @@
 2007-10-15  Bruno Haible  <bruno@clisp.org>
 
+       * po-mode.el (po-subedit-exit-old): Remove function.
+
        * po-mode.el (po-set-msgstr-form): Renamed from po-set-msgstr-new.
        (po-set-msgstr): Remove function.
 

diff --git a/gettext-tools/misc/po-mode.el b/gettext-tools/misc/po-mode.el
index b7d30342ea89b6b02eadd22f66f4bee607eadca1..06623f87ae6b5bcf65b577865c2d56abee12ae08 100644 (file)
--- a/gettext-tools/misc/po-mode.el
+++ b/gettext-tools/misc/po-mode.el
@@ -62,7 +62,6 @@
 ;;    at the end of the editing msgstr[0] or at the beginning of the editing
 ;;    of msgstr[1].) Reason: These two strings are usually very similar.
 ;; Remove old po-get-msgstr, rename po-get-msgstr-new to po-get-msgstr-form.
-;; Remove old po-subedit-exit-old.
 
 ;;; Code:
 \f
@@ -2260,32 +2259,6 @@ When done with the `ediff' session press \\[exit-recursive-edit] exit to
       (kill-buffer edit-buffer)
       (setq po-edited-fields (delete back-pointer po-edited-fields)))))
 
-(defun po-subedit-exit-old ()
-  "Exit the subedit buffer, replacing the string in the PO buffer."
-  (interactive)
-  (goto-char (point-max))
-  (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)
-    (cond ((= (point) po-start-of-msgid)
-           (po-set-comment string)
-           (po-redisplay))
-          ((= (point) po-start-of-msgstr-form)
-           (let ((replaced (po-set-msgstr-form string)))
-             (if (and replaced
-                      po-auto-fuzzy-on-edit
-                      (eq po-entry-type 'translated))
-                 (progn
-                   (po-decrease-type-counter)
-                   (po-add-attribute "fuzzy")
-                   (po-current-entry)
-                   (po-increase-type-counter)))))
-          (t (debug)))))
-
 (defun po-subedit-exit ()
   "Exit the subedit buffer, replacing the string in the PO buffer."
   (interactive)