From: Bruno Haible <bruno@clisp.org>
Date: Mon, 15 Oct 2007 22:15:23 +0000 (+0000)
Subject: Remove po-subedit-exit-old function.
X-Git-Tag: v0.17~119
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=750595452c68d2c4f9630dd9abf72173a00f1ab6;p=thirdparty%2Fgettext.git

Remove po-subedit-exit-old function.
---

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index 21c37986c..f25c163ee 100644
--- 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 b7d30342e..06623f87a 100644
--- 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:
 
@@ -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)