/[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.125 by angeli, Mon Jun 20 13:28:54 2005 UTC revision 5.126 by angeli, Mon Jun 20 13:47:44 2005 UTC
# Line 1268  Returns nil if none of KEYWORDS is found Line 1268  Returns nil if none of KEYWORDS is found
1268      (font-latex-check-cache 'font-latex-match-command-cache keywords limit))      (font-latex-check-cache 'font-latex-match-command-cache keywords limit))
1269    (catch 'match    (catch 'match
1270      (while (re-search-forward keywords limit t)      (while (re-search-forward keywords limit t)
1271        (catch 'irrelevant        (unless (or (font-latex-faces-present-p '(font-lock-comment-face
         (when (or (font-latex-faces-present-p '(font-lock-comment-face  
1272                                                  font-latex-verbatim-face)                                                  font-latex-verbatim-face)
1273                                                (match-beginning 0))                                                (match-beginning 0))
1274                    (font-latex-commented-outp))                    (font-latex-commented-outp))
           (throw 'irrelevant nil))  
1275          (let ((kbeg (match-beginning 0))          (let ((kbeg (match-beginning 0))
1276                kend sbeg send cbeg cend                kend sbeg send cbeg cend
1277                cache-reset opt-arg                cache-reset opt-arg
# Line 1340  Returns nil if no command is found." Line 1338  Returns nil if no command is found."
1338      (font-latex-check-cache 'font-latex-match-in-braces-cache 'in-braces limit))      (font-latex-check-cache 'font-latex-match-in-braces-cache 'in-braces limit))
1339    (catch 'match    (catch 'match
1340      (while (re-search-forward keywords limit t)      (while (re-search-forward keywords limit t)
1341        (catch 'irrelevant        (unless (or (font-latex-faces-present-p '(font-lock-comment-face
         (when (or (font-latex-faces-present-p '(font-lock-comment-face  
1342                                                  font-latex-verbatim-face)                                                  font-latex-verbatim-face)
1343                                                (match-beginning 0))                                                (match-beginning 0))
1344                    (font-latex-commented-outp))                    (font-latex-commented-outp))
           (throw 'irrelevant nil))  
1345          (let ((kbeg (match-beginning 0)) (kend (match-end 1))          (let ((kbeg (match-beginning 0)) (kend (match-end 1))
1346                (beg  (match-end 0))                (beg  (match-end 0))
1347                end cbeg cend                end cbeg cend
# Line 1393  Used for patterns like: Line 1389  Used for patterns like:
1389  \\ [ F = ma \\] but not \\\\ [len]"  \\ [ F = ma \\] but not \\\\ [len]"
1390    (catch 'match    (catch 'match
1391      (while (re-search-forward "\\(\\\\(\\)\\|\\(\\\\\\[\\)" limit t)      (while (re-search-forward "\\(\\\\(\\)\\|\\(\\\\\\[\\)" limit t)
1392        (catch 'irrelevant        (goto-char (match-beginning 0))
1393          (goto-char (match-beginning 0))        (if (eq (preceding-char) ?\\)     ; \\[ is not a math environment
         (when (eq (preceding-char) ?\\) ; \\[ is not a math environment  
1394            (goto-char (match-end 0))            (goto-char (match-end 0))
           (throw 'irrelevant nil))  
1395          (let ((beg (point)))          (let ((beg (point)))
1396            (search-forward (cond ((match-beginning 1) "\\)")            (search-forward (cond ((match-beginning 1) "\\)")
1397                                  (t                   "\\]"))                                  (t                   "\\]"))

Legend:
Removed from v.5.125  
changed lines
  Added in v.5.126

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