Big merge part 6.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 3c8747965a7011463e109de5b9895190f768a93c..334fa1ec64b1d52d333f0ac4b8dc8bc8bb50f36b 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,17 @@
+1998-05-15  François Pinard  <pinard@iro.umontreal.ca>
+
+       * po-mode.el (po-any-msgid-regexp, po-any-msgstr-regexp,
+       po-msgstr-idx-keyword-regexp, po-obsolete-msgstr-regexp,
+       po-set-msgstr, po-obsolete-comment-regexp, po-get-comment): Enforce
+       #~ for obsolete entries.  The tilde is not optional anymore.
+
+1998-05-09  François Pinard  <pinard@iro.umontreal.ca>
+
+       * po-mode.el (po-after-entry-regexp): Check if at end of line, rather
+       than for any character not being quoted.  Else, M-u skips over
+       immediately previous untranslated entry, because backward pattern
+       extends beyond point.  Reported by Kalle Niemitalo.
+
 2001-07-13  Karl Eichwalder  <ke@suse.de>
 
        * po-mode.el (po-validate): Check for 'null-device; if not available

diff --git a/misc/po-mode.el b/misc/po-mode.el
index a40dbbfb8651630b42f3e808de54b80e8239bc10..6c10df71a2149ef11d21e43022cd41bd772aadcf 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -647,16 +647,16 @@ Content-Type into a Mule coding system.")
   "Function to start composing an electronic message.")
 
 (defvar po-any-msgid-regexp
-  "^\\(#~?[ \t]*\\)?msgid.*\n\\(\\(#~?[ \t]*\\)?\".*\n\\)*"
+  "^\\(#~[ \t]*\\)?msgid.*\n\\(\\(#~[ \t]*\\)?\".*\n\\)*"
   "Regexp matching a whole msgid field, whether obsolete or not.")
 
 (defvar po-any-msgstr-regexp
-  ;; "^\\(#~?[ \t]*\\)?msgstr.*\n\\(\\(#~?[ \t]*\\)?\".*\n\\)*"
-  "^\\(#~?[ \t]*\\)?msgstr\\(\\[[0-9]\\]\\)?.*\n\\(\\(#~?[ \t]*\\)?\".*\n\\)*"
+  ;; "^\\(#~[ \t]*\\)?msgstr.*\n\\(\\(#~[ \t]*\\)?\".*\n\\)*"
+  "^\\(#~[ \t]*\\)?msgstr\\(\\[[0-9]\\]\\)?.*\n\\(\\(#~[ \t]*\\)?\".*\n\\)*"
   "Regexp matching a whole msgstr or msgstr[] field, whether obsolete or not.")
 
 (defvar po-msgstr-idx-keyword-regexp
-  "^\\(#~?[ \t]*\\)?msgstr\\[[0-9]\\]"
+  "^\\(#~[ \t]*\\)?msgstr\\[[0-9]\\]"
   "Regexp matching an indexed msgstr keyword, whether obsolete or not.")
 
 (defvar po-msgfmt-program "msgfmt"
@@ -1284,7 +1284,7 @@ If WRAP is not nil, the search may wrap around the buffer."
 ;; Untranslated entries.
 
 (defvar po-after-entry-regexp
-  "\\(\\'\\|\\(#[ \t]*\\)?[^\"]\\)"
+  "\\(\\'\\|\\(#[ \t]*\\)?$\\)"
   "Regexp which should be true after a full msgstr string matched.")
 
 (defvar po-untranslated-regexp
@@ -1314,7 +1314,7 @@ If WRAP is not nil, the search may wrap around the buffer."
 ;; Obsolete entries.
 
 (defvar po-obsolete-msgstr-regexp
-  "^#~?[ \t]*msgstr.*\n\\(#~?[ \t]*\".*\n\\)*"
+  "^#~[ \t]*msgstr.*\n\\(#~[ \t]*\".*\n\\)*"
   "Regexp matching a whole msgstr field of an obsolete entry.")
 
 (defun po-next-obsolete-entry ()
@@ -1581,7 +1581,7 @@ described by FORM is merely identical to the msgstr already in place."
              (unless (eq msgstr-idx nil) ; hack: replace msgstr with msgstr[d]
                (progn
                  (insert msgstr-idx)
-                 (looking-at "\\(#~?[ \t]*\\)?msgstr")
+                 (looking-at "\\(#~[ \t]*\\)?msgstr")
                  (replace-match "")))
             (goto-char po-start-of-msgid)
             (po-find-span-of-entry)
@@ -1659,7 +1659,7 @@ or completely delete an obsolete entry, saving its msgstr on the kill ring."
   "Regexp matching the whole editable comment part of an active entry.")
 
 (defvar po-obsolete-comment-regexp
-  "^\\(#~? #\n\\|#~? # .*\n\\)+"
+  "^\\(#~ #\n\\|#~ # .*\n\\)+"
   "Regexp matching the whole editable comment part of an obsolete entry.")
 
 (defun po-get-comment (kill-flag)
@@ -1676,7 +1676,7 @@ If KILL-FLAG, then add the unquoted comment to the kill ring."
            (insert-buffer-substring buffer (match-beginning 0) (match-end 0))
            (goto-char (point-min))
            (while (not (eobp))
-             (if (looking-at (if obsolete "#~? # ?" "#~? ?"))
+             (if (looking-at (if obsolete "#~ # ?" "# ?"))
                  (replace-match "" t t))
              (forward-line 1))
            (and kill-flag (copy-region-as-kill (point-min) (point-max)))