aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog17
-rw-r--r--lisp/textmodes/tex-mode.el10
2 files changed, 16 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3000e2bd79f..3807037e57d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12005-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * textmodes/tex-mode.el (tex-font-lock-append-prop)
4 (tex-font-lock-suscript, tex-insert-quote, latex-indent): Adjust to the
5 new symbol used for the tex-verbatim face.
6
12005-09-24 Emilio C. Lopes <eclig@gmx.net> 72005-09-24 Emilio C. Lopes <eclig@gmx.net>
2 8
3 * woman.el (woman-file-name): 9 * woman.el (woman-file-name):
@@ -77,8 +83,8 @@
77 83
782005-09-24 Magnus Henoch <mange@freemail.hu> 842005-09-24 Magnus Henoch <mange@freemail.hu>
79 85
80 * textmodes/ispell.el (ispell-maybe-find-aspell-dictionaries): New 86 * textmodes/ispell.el (ispell-maybe-find-aspell-dictionaries):
81 function, code extracted from ispell-valid-dictionary-list. 87 New function, code extracted from ispell-valid-dictionary-list.
82 (ispell-valid-dictionary-list, ispell-accept-buffer-local-defs): 88 (ispell-valid-dictionary-list, ispell-accept-buffer-local-defs):
83 Call it. 89 Call it.
84 90
@@ -87,8 +93,7 @@
87 * subr.el (version-regexp-alist): Extend valid syntax for version 93 * subr.el (version-regexp-alist): Extend valid syntax for version
88 strings: allow any of the characters -,_,+ to separate the 94 strings: allow any of the characters -,_,+ to separate the
89 alpha/beta/rc part from the version part. Doc fix. 95 alpha/beta/rc part from the version part. Doc fix.
90 (version-to-list): Doc fix. Bind case-fold-search to t, as 96 (version-to-list): Doc fix. Bind case-fold-search to t, as advertised.
91 advertised.
92 97
932005-09-23 David Reitter <david.reitter@gmail.com> 982005-09-23 David Reitter <david.reitter@gmail.com>
94 99
@@ -100,8 +105,8 @@
100 (flyspell-incorrect-hook, flyspell-highlight-duplicate-region): 105 (flyspell-incorrect-hook, flyspell-highlight-duplicate-region):
101 Doc fixes. 106 Doc fixes.
102 107
103 * progmodes/cc-mode.el (c-font-lock-init): Specify 108 * progmodes/cc-mode.el (c-font-lock-init):
104 font-lock-lines-before. 109 Specify font-lock-lines-before.
105 110
1062005-09-23 Stefan Monnier <monnier@iro.umontreal.ca> 1112005-09-23 Stefan Monnier <monnier@iro.umontreal.ca>
107 112
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 82e5a1cf5f1..1c395d3663b 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -472,7 +472,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
472 (arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)")) 472 (arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)"))
473 (list 473 (list
474 ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be 474 ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be
475 ;; highlighted as tex-verbatim-face. Let's undo that. 475 ;; highlighted as tex-verbatim face. Let's undo that.
476 ;; This is ugly and brittle :-( --Stef 476 ;; This is ugly and brittle :-( --Stef
477 '("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t)) 477 '("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t))
478 ;; display $$ math $$ 478 ;; display $$ math $$
@@ -509,7 +509,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
509 509
510(defun tex-font-lock-append-prop (prop) 510(defun tex-font-lock-append-prop (prop)
511 (unless (memq (get-text-property (match-end 1) 'face) 511 (unless (memq (get-text-property (match-end 1) 'face)
512 '(font-lock-comment-face tex-verbatim-face)) 512 '(font-lock-comment-face tex-verbatim))
513 prop)) 513 prop))
514 514
515(defconst tex-font-lock-keywords-2 515(defconst tex-font-lock-keywords-2
@@ -583,7 +583,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
583(defun tex-font-lock-suscript (pos) 583(defun tex-font-lock-suscript (pos)
584 (unless (or (memq (get-text-property pos 'face) 584 (unless (or (memq (get-text-property pos 'face)
585 '(font-lock-constant-face font-lock-builtin-face 585 '(font-lock-constant-face font-lock-builtin-face
586 font-lock-comment-face tex-verbatim-face)) 586 font-lock-comment-face tex-verbatim))
587 ;; Check for backslash quoting 587 ;; Check for backslash quoting
588 (let ((odd nil) 588 (let ((odd nil)
589 (pos pos)) 589 (pos pos))
@@ -1109,7 +1109,7 @@ Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote'
1109inserts \" characters." 1109inserts \" characters."
1110 (interactive "*P") 1110 (interactive "*P")
1111 (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) 1111 (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\))
1112 (eq (get-text-property (point) 'face) tex-verbatim-face) 1112 (eq (get-text-property (point) 'face) tex-verbatim)
1113 (save-excursion 1113 (save-excursion
1114 (backward-char (length tex-open-quote)) 1114 (backward-char (length tex-open-quote))
1115 (when (or (looking-at (regexp-quote tex-open-quote)) 1115 (when (or (looking-at (regexp-quote tex-open-quote))
@@ -2341,7 +2341,7 @@ Runs the shell command defined by `tex-show-queue-command'."
2341 2341
2342(defun latex-indent (&optional arg) 2342(defun latex-indent (&optional arg)
2343 (if (and (eq (get-text-property (line-beginning-position) 'face) 2343 (if (and (eq (get-text-property (line-beginning-position) 'face)
2344 tex-verbatim-face)) 2344 tex-verbatim))
2345 'noindent 2345 'noindent
2346 (with-syntax-table tex-latex-indent-syntax-table 2346 (with-syntax-table tex-latex-indent-syntax-table
2347 ;; TODO: Rather than ignore $, we should try to be more clever about it. 2347 ;; TODO: Rather than ignore $, we should try to be more clever about it.