From 9a6599c4d3d3db699b269b53a9a458bf0728ce08 Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Thu, 14 Aug 2008 08:34:09 +0000 Subject: [PATCH] From Sven Joachim: Use forward-line instead of unreliable previous-line or next-line. --- gettext-tools/misc/ChangeLog | 6 ++++++ gettext-tools/misc/po-mode.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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) -- 2.47.2