From: Bruno Haible Date: Thu, 14 Aug 2008 08:34:09 +0000 (+0000) Subject: From Sven Joachim: Use forward-line instead of unreliable previous-line or X-Git-Tag: v0.18~389 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9a6599c4d3d3db699b269b53a9a458bf0728ce08;p=thirdparty%2Fgettext.git 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 95e44ae5f..5a476aab9 100644 --- a/gettext-tools/misc/ChangeLog +++ b/gettext-tools/misc/ChangeLog @@ -1,3 +1,9 @@ +2008-08-13 Sven Joachim + + * 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 * 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 c7f983b0e..7b843c7d2 100644 --- 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)