472 |
(arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) |
(arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) |
473 |
(list |
(list |
474 |
;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be |
;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be |
475 |
;; highlighted as tex-verbatim-face. Let's undo that. |
;; highlighted as tex-verbatim face. Let's undo that. |
476 |
;; This is ugly and brittle :-( --Stef |
;; This is ugly and brittle :-( --Stef |
477 |
'("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) |
'("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) |
478 |
;; display $$ math $$ |
;; display $$ math $$ |
509 |
|
|
510 |
(defun tex-font-lock-append-prop (prop) |
(defun tex-font-lock-append-prop (prop) |
511 |
(unless (memq (get-text-property (match-end 1) 'face) |
(unless (memq (get-text-property (match-end 1) 'face) |
512 |
'(font-lock-comment-face tex-verbatim-face)) |
'(font-lock-comment-face tex-verbatim)) |
513 |
prop)) |
prop)) |
514 |
|
|
515 |
(defconst tex-font-lock-keywords-2 |
(defconst tex-font-lock-keywords-2 |
583 |
(defun tex-font-lock-suscript (pos) |
(defun tex-font-lock-suscript (pos) |
584 |
(unless (or (memq (get-text-property pos 'face) |
(unless (or (memq (get-text-property pos 'face) |
585 |
'(font-lock-constant-face font-lock-builtin-face |
'(font-lock-constant-face font-lock-builtin-face |
586 |
font-lock-comment-face tex-verbatim-face)) |
font-lock-comment-face tex-verbatim)) |
587 |
;; Check for backslash quoting |
;; Check for backslash quoting |
588 |
(let ((odd nil) |
(let ((odd nil) |
589 |
(pos pos)) |
(pos pos)) |
1109 |
inserts \" characters." |
inserts \" characters." |
1110 |
(interactive "*P") |
(interactive "*P") |
1111 |
(if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) |
(if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) |
1112 |
(eq (get-text-property (point) 'face) tex-verbatim-face) |
(eq (get-text-property (point) 'face) tex-verbatim) |
1113 |
(save-excursion |
(save-excursion |
1114 |
(backward-char (length tex-open-quote)) |
(backward-char (length tex-open-quote)) |
1115 |
(when (or (looking-at (regexp-quote tex-open-quote)) |
(when (or (looking-at (regexp-quote tex-open-quote)) |
2341 |
|
|
2342 |
(defun latex-indent (&optional arg) |
(defun latex-indent (&optional arg) |
2343 |
(if (and (eq (get-text-property (line-beginning-position) 'face) |
(if (and (eq (get-text-property (line-beginning-position) 'face) |
2344 |
tex-verbatim-face)) |
tex-verbatim)) |
2345 |
'noindent |
'noindent |
2346 |
(with-syntax-table tex-latex-indent-syntax-table |
(with-syntax-table tex-latex-indent-syntax-table |
2347 |
;; TODO: Rather than ignore $, we should try to be more clever about it. |
;; TODO: Rather than ignore $, we should try to be more clever about it. |