mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(tex-font-lock-append-prop, tex-font-lock-suscript, tex-insert-quote)

Browse Source 
(latex-indent): Adjust to the new symbol used for the tex-verbatim face.
This commit is contained in:
Stefan Monnier 2005-09-24 17:44:30 +00:00
parent 81df110a29
commit 621f893a9d
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2005-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/tex-mode.el (tex-font-lock-append-prop)
(tex-font-lock-suscript, tex-insert-quote, latex-indent): Adjust to the
new symbol used for the tex-verbatim face.
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* woman.el (woman-file-name):
@ -77,8 +83,8 @@
2005-09-24 Magnus Henoch <mange@freemail.hu>
* textmodes/ispell.el (ispell-maybe-find-aspell-dictionaries): New
function, code extracted from ispell-valid-dictionary-list.
* textmodes/ispell.el (ispell-maybe-find-aspell-dictionaries):
New function, code extracted from ispell-valid-dictionary-list.
(ispell-valid-dictionary-list, ispell-accept-buffer-local-defs):
Call it.
@ -87,8 +93,7 @@
* subr.el (version-regexp-alist): Extend valid syntax for version
strings: allow any of the characters -,_,+ to separate the
alpha/beta/rc part from the version part. Doc fix.
(version-to-list): Doc fix. Bind case-fold-search to t, as
advertised.
(version-to-list): Doc fix. Bind case-fold-search to t, as advertised.
2005-09-23 David Reitter <david.reitter@gmail.com>
@ -100,8 +105,8 @@
(flyspell-incorrect-hook, flyspell-highlight-duplicate-region):
Doc fixes.
* progmodes/cc-mode.el (c-font-lock-init): Specify
font-lock-lines-before.
* progmodes/cc-mode.el (c-font-lock-init):
Specify font-lock-lines-before.
2005-09-23 Stefan Monnier <monnier@iro.umontreal.ca>

10
lisp/textmodes/tex-mode.el
View File

@ -472,7 +472,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
(arg "{\\(\\(?:[^{}\\]+\\|\\\\.\\|{[^}]*}\\)+\\)"))
(list
;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be
;; highlighted as tex-verbatim-face. Let's undo that.
;; highlighted as tex-verbatim face. Let's undo that.
;; This is ugly and brittle :-( --Stef
'("^\\(\\\\\\)end" (1 (get-text-property (match-end 1) 'face) t))
;; display $$ math $$
@ -509,7 +509,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
(defun tex-font-lock-append-prop (prop)
(unless (memq (get-text-property (match-end 1) 'face)
'(font-lock-comment-face tex-verbatim-face))
'(font-lock-comment-face tex-verbatim))
prop))
(defconst tex-font-lock-keywords-2
@ -583,7 +583,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
(defun tex-font-lock-suscript (pos)
(unless (or (memq (get-text-property pos 'face)
'(font-lock-constant-face font-lock-builtin-face
font-lock-comment-face tex-verbatim-face))
font-lock-comment-face tex-verbatim))
;; Check for backslash quoting
(let ((odd nil)
(pos pos))
@ -1109,7 +1109,7 @@ Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote'
inserts \" characters."
(interactive "*P")
(if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\))
(eq (get-text-property (point) 'face) tex-verbatim-face)
(eq (get-text-property (point) 'face) tex-verbatim)
(save-excursion
(backward-char (length tex-open-quote))
(when (or (looking-at (regexp-quote tex-open-quote))
@ -2341,7 +2341,7 @@ Runs the shell command defined by `tex-show-queue-command'."
(defun latex-indent (&optional arg)
(if (and (eq (get-text-property (line-beginning-position) 'face)
tex-verbatim-face))
tex-verbatim))
'noindent
(with-syntax-table tex-latex-indent-syntax-table
;; TODO: Rather than ignore $, we should try to be more clever about it.