[AUCTeX-diffs] [elpa] externals/auctex 5f67eac 50/71: Fix logic again

[Tassilo Horn]

branch: externals/auctex
commit 5f67eac8d508402349884ba80808ec0f4722f4fb
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Fix logic again
    
    * latex.el (LaTeX-fill-region-as-paragraph): When identifying code
    comment, continue search if the found candidate turns out not to be a
    code comment.
    Add a comment for regexp.
---
 latex.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/latex.el b/latex.el
index 132e6a5..e3699c5 100644
--- a/latex.el
+++ b/latex.el
@@ -4022,15 +4022,20 @@ performed in that case."
         (goto-char from)
         (while (< (point) end-marker)
           ;; Code comments.
-          (when (setq has-code-comment
-                      (TeX-search-forward-comment-start end-marker))
-            ;; See if there is at least one non-whitespace
-            ;; character before the comment starts.
-            (goto-char has-code-comment)
-            (skip-chars-backward " \t" (line-beginning-position))
-            (if (bolp)
-                ;; Not a code comment.
-                (setq has-code-comment nil)))
+          (catch 'found
+            (while (setq has-code-comment
+                         (TeX-search-forward-comment-start end-marker))
+              ;; See if there is at least one non-whitespace
+              ;; character before the comment starts.
+              (goto-char has-code-comment)
+              (skip-chars-backward " \t" (line-beginning-position))
+              (if (not (bolp))
+                  ;; A real code comment.
+                  (throw 'found t)
+                ;; Not a code comment.  Continue the loop.
+                (forward-line 1)
+                (if (> (point) end-marker)
+                    (goto-char end-marker)))))
 
           ;; Go back to the former point for the next regexp search.
           (goto-char from)
@@ -4050,6 +4055,8 @@ performed in that case."
                         "\\(?:{[ \t]*}\\)?[ \t]*$"
                         "\\)\\|"
                         ;; Lines ending with `\\'.
+                        ;; XXX: This matches a line ending with "\\\ ".
+                        ;; Should we avoid such corner case?
                         (regexp-quote (concat TeX-esc TeX-esc))
                         ;; XXX: Why not just "\\s-*\\*?" ?
                         "\\(?:\\s-*\\*\\)?"