From Sven Joachim: Use forward-line instead of unreliable previous-line or

next-line.

diff --git a/gettext-tools/misc/ChangeLog b/gettext-tools/misc/ChangeLog
index 95e44ae5f769ff80322f666a901517c52c91ae64..5a476aab962c85d45d41256f0c8f5a25780be808 100644 (file)
--- a/gettext-tools/misc/ChangeLog
+++ b/gettext-tools/misc/ChangeLog
@@ -1,3 +1,9 @@
+2008-08-13  Sven Joachim  <svenjoac@gmx.de>
+
+       * po-mode.el (po-check-file-header): Use forward-line with
+       negative argument instead of previous-line.
+       (po-add-attribute): Use forward-line instead of next-line.
+
 2008-05-25  Bruno Haible  <bruno@clisp.org>
 
        * po-mode.el (po-replace-revision-date): Return nil.

diff --git a/gettext-tools/misc/po-mode.el b/gettext-tools/misc/po-mode.el
index c7f983b0e3b7264cd9e9e0880cd14b6e1f183ec6..7b843c7d2078c077d014b6178e48af569afa8a03 100644 (file)
--- a/gettext-tools/misc/po-mode.el
+++ b/gettext-tools/misc/po-mode.el
@@ -1342,7 +1342,7 @@ Position %d/%d; %d translated, %d fuzzy, %d untranslated, %d obsolete")
             (progn
               ;; There is at least one entry.
               (goto-char (match-beginning 0))
-              (previous-line 1)
+              (forward-line -1)
               (setq end-of-header (match-end 0))
               (if (looking-at "msgid \"\"\n")
                   ;; There is indeed a PO file header.
@@ -1352,7 +1352,7 @@ Position %d/%d; %d translated, %d fuzzy, %d untranslated, %d obsolete")
                     ;; This is an oldish header.  Replace it all.
                     (goto-char end-of-header)
                     (while (> (point) (point-min))
-                      (previous-line 1)
+                      (forward-line -1)
                       (insert "#~ ")
                       (beginning-of-line))
                     (beginning-of-line)
@@ -1498,7 +1498,7 @@ untranslated or translated."
               (insert ", " name)))
         (skip-chars-forward "\n")
         (while (eq (following-char) ?#)
-          (next-line 1))
+          (forward-line 1))
         (insert "#, " name "\n")))))
 
 (defun po-delete-attribute (name)