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

[Ralf Angeli]

Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.111 auctex/font-latex.el:5.112
--- auctex/font-latex.el:5.111  Sun May  1 18:55:27 2005
+++ auctex/font-latex.el        Mon May  9 12:19:39 2005
@@ -348,7 +348,7 @@
 form `(command <number of mandatory arguments> <flag determining
 if trailing asterisk should be fontified>)' which will match
 macros of the form \"\\foo[bar]{baz}\", or a list of the form
-`(title <num>)' which is basically the same as the `(comman <num>)'
+`(title <num>)' which is basically the same as the `(command <num>)'
 list but puts conditional into the keyword highlighter which
 tests for `font-latex-fontify-sectioning'.")
 
@@ -1249,8 +1249,10 @@
        (goto-char (match-end 0))
        (if (and asterisk (eq (following-char) ?\*))
            (forward-char 1))
-       (while (and (forward-comment 1) (< (point) limit)))
        (setq kend (point))
+       ;; FIXME: `forward-comment' should disregard comment starters
+       ;; at line beginnings. (Performace hog!)
+       (while (and (< (point) limit) (forward-comment 1)))
        ;; Optional arguments [...]
        (while (and (< (point) limit)
                    (eq (following-char) ?\[))
@@ -1265,7 +1267,9 @@
              (goto-char send))))
        ;; Mandatory arguments {...}
        (dotimes (i arg-count)
-         (while (and (forward-comment 1) (< (point) limit)))
+         ;; FIXME: `forward-comment' should disregard comment starters
+         ;; at line beginnings. (Performace hog!)
+         (while (and (< (point) limit) (forward-comment 1)))
          (when (and (< (point) limit)
                     (eq (following-char) ?\{))
            (when (= i 0) (setq cbeg (point)))