[AUCTeX-diffs] Changes to auctex/font-latex.el

[Ralf Angeli]

Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.125 auctex/font-latex.el:5.126
--- auctex/font-latex.el:5.125  Mon Jun 20 13:28:54 2005
+++ auctex/font-latex.el        Mon Jun 20 13:47:44 2005
@@ -1268,12 +1268,10 @@
     (font-latex-check-cache 'font-latex-match-command-cache keywords limit))
   (catch 'match
     (while (re-search-forward keywords limit t)
-      (catch 'irrelevant
-       (when (or (font-latex-faces-present-p '(font-lock-comment-face
+      (unless (or (font-latex-faces-present-p '(font-lock-comment-face
                                                font-latex-verbatim-face)
                                              (match-beginning 0))
                  (font-latex-commented-outp))
-         (throw 'irrelevant nil))
        (let ((kbeg (match-beginning 0))
              kend sbeg send cbeg cend
              cache-reset opt-arg
@@ -1340,12 +1338,10 @@
     (font-latex-check-cache 'font-latex-match-in-braces-cache 'in-braces 
limit))
   (catch 'match
     (while (re-search-forward keywords limit t)
-      (catch 'irrelevant
-       (when (or (font-latex-faces-present-p '(font-lock-comment-face
+      (unless (or (font-latex-faces-present-p '(font-lock-comment-face
                                                font-latex-verbatim-face)
                                              (match-beginning 0))
                  (font-latex-commented-outp))
-         (throw 'irrelevant nil))
        (let ((kbeg (match-beginning 0)) (kend (match-end 1))
              (beg  (match-end 0))
              end cbeg cend
@@ -1393,11 +1389,9 @@
 \\ [ F = ma \\] but not \\\\ [len]"
   (catch 'match
     (while (re-search-forward "\\(\\\\(\\)\\|\\(\\\\\\[\\)" limit t)
-      (catch 'irrelevant
-       (goto-char (match-beginning 0))
-       (when (eq (preceding-char) ?\\) ; \\[ is not a math environment
+      (goto-char (match-beginning 0))
+      (if (eq (preceding-char) ?\\)    ; \\[ is not a math environment
          (goto-char (match-end 0))
-         (throw 'irrelevant nil))
        (let ((beg (point)))
          (search-forward (cond ((match-beginning 1) "\\)")
                                (t                   "\\]"))