/[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.138 by angeli, Sat Sep 10 08:48:23 2005 UTC revision 5.139 by angeli, Sat Sep 10 09:38:17 2005 UTC
# Line 385  use." Line 385  use."
385                 ,(concat "Fontify `" prefix name "' up to LIMIT.                 ,(concat "Fontify `" prefix name "' up to LIMIT.
386    
387  Generated by `font-latex-make-match-defun'.")  Generated by `font-latex-make-match-defun'.")
388                 (when (and ,(intern (concat prefix name))                 (when ,(intern (concat prefix name))
                           (or ,(intern (concat prefix name "-keywords"))  
                               ,(intern (concat prefix name "-keywords-local"))))  
389                   (font-latex-match-command-with-arguments                   (font-latex-match-command-with-arguments
390                    ,(intern (concat prefix name)) limit                    ,(intern (concat prefix name)) limit
391                    ,(nth 1 type) ,(nth 2 type)))))                    ,(nth 1 type) ,(nth 2 type)))))
# Line 488  Generated by `font-latex-make-built-in-k Line 486  Generated by `font-latex-make-built-in-k
486                     (if (string-match "^[A-Za-z]" elt)                     (if (string-match "^[A-Za-z]" elt)
487                         (add-to-list 'multi-char-macros elt)                         (add-to-list 'multi-char-macros elt)
488                       (add-to-list 'single-char-macros elt)))                       (add-to-list 'single-char-macros elt)))
489                   (setq ,(intern (concat prefix name))                   (when (or multi-char-macros single-char-macros)
490                         (concat                     (setq ,(intern (concat prefix name))
491                          "\\\\\\("                           (concat
492                          (when (> (safe-length multi-char-macros) 0)                            "\\\\\\("
493                            (concat                            (when multi-char-macros
494                             "\\(?:" (regexp-opt multi-char-macros) "\\)\\>"))                              (concat
495                          (when (> (safe-length single-char-macros) 0)                               "\\(?:" (regexp-opt multi-char-macros) "\\)\\>"))
496                            (concat                            (when single-char-macros
497                             (when (> (safe-length multi-char-macros) 0) "\\|")                              (concat
498                             "\\(?:" (regexp-opt single-char-macros) "\\)"))                               (when multi-char-macros "\\|")
499                          "\\)")))))                               "\\(?:" (regexp-opt single-char-macros) "\\)"))
500                              "\\)"))))))
501    
502        ;; defcustom font-latex-match-*-keywords        ;; defcustom font-latex-match-*-keywords
503        (eval `(defcustom ,(intern (concat prefix name "-keywords")) nil        (eval `(defcustom ,(intern (concat prefix name "-keywords")) nil

Legend:
Removed from v.5.138  
changed lines
  Added in v.5.139

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