/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

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

revision 1.173 by monnier, Fri Sep 2 18:24:29 2005 UTC revision 1.174 by monnier, Sat Sep 24 17:44:29 2005 UTC
# Line 472  An alternative value is \" . \", if you Line 472  An alternative value is \" . \", if you
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 $$
# Line 509  An alternative value is \" . \", if you Line 509  An alternative value is \" . \", if you
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
# Line 583  An alternative value is \" . \", if you Line 583  An alternative value is \" . \", if you
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))
# Line 1109  Inserts the value of `tex-open-quote' (n Line 1109  Inserts the value of `tex-open-quote' (n
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))
# Line 2341  Runs the shell command defined by `tex-s Line 2341  Runs the shell command defined by `tex-s
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.

Legend:
Removed from v.1.173  
changed lines
  Added in v.1.174

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