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))))) |
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 |