/[auctex]/auctex/font-latex.el
ViewVC logotype

Diff of /auctex/font-latex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5.111 by angeli, Sun May 1 18:55:27 2005 UTC revision 5.112 by angeli, Mon May 9 12:19:39 2005 UTC
# Line 348  inside a TeX group (like \"{\\bfseries f Line 348  inside a TeX group (like \"{\\bfseries f
348  form `(command <number of mandatory arguments> <flag determining  form `(command <number of mandatory arguments> <flag determining
349  if trailing asterisk should be fontified>)' which will match  if trailing asterisk should be fontified>)' which will match
350  macros of the form \"\\foo[bar]{baz}\", or a list of the form  macros of the form \"\\foo[bar]{baz}\", or a list of the form
351  `(title <num>)' which is basically the same as the `(comman <num>)'  `(title <num>)' which is basically the same as the `(command <num>)'
352  list but puts conditional into the keyword highlighter which  list but puts conditional into the keyword highlighter which
353  tests for `font-latex-fontify-sectioning'.")  tests for `font-latex-fontify-sectioning'.")
354    
# Line 1249  Returns nil if none of KEYWORDS is found Line 1249  Returns nil if none of KEYWORDS is found
1249          (goto-char (match-end 0))          (goto-char (match-end 0))
1250          (if (and asterisk (eq (following-char) ?\*))          (if (and asterisk (eq (following-char) ?\*))
1251              (forward-char 1))              (forward-char 1))
         (while (and (forward-comment 1) (< (point) limit)))  
1252          (setq kend (point))          (setq kend (point))
1253            ;; FIXME: `forward-comment' should disregard comment starters
1254            ;; at line beginnings. (Performace hog!)
1255            (while (and (< (point) limit) (forward-comment 1)))
1256          ;; Optional arguments [...]          ;; Optional arguments [...]
1257          (while (and (< (point) limit)          (while (and (< (point) limit)
1258                      (eq (following-char) ?\[))                      (eq (following-char) ?\[))
# Line 1265  Returns nil if none of KEYWORDS is found Line 1267  Returns nil if none of KEYWORDS is found
1267                (goto-char send))))                (goto-char send))))
1268          ;; Mandatory arguments {...}          ;; Mandatory arguments {...}
1269          (dotimes (i arg-count)          (dotimes (i arg-count)
1270            (while (and (forward-comment 1) (< (point) limit)))            ;; FIXME: `forward-comment' should disregard comment starters
1271              ;; at line beginnings. (Performace hog!)
1272              (while (and (< (point) limit) (forward-comment 1)))
1273            (when (and (< (point) limit)            (when (and (< (point) limit)
1274                       (eq (following-char) ?\{))                       (eq (following-char) ?\{))
1275              (when (= i 0) (setq cbeg (point)))              (when (= i 0) (setq cbeg (point)))

Legend:
Removed from v.5.111  
changed lines
  Added in v.5.112

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26