Mercurial > emacs
changeset 46120:7177a47bc557
(tex-file): call `save-some-buffers' before `tex-main-file'
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 01 Jul 2002 19:55:45 +0000 |
| parents | c655b113a51f |
| children | 2198a6632b2b |
| files | lisp/ChangeLog lisp/textmodes/tex-mode.el |
| diffstat | 2 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 01 16:17:27 2002 +0000 +++ b/lisp/ChangeLog Mon Jul 01 19:55:45 2002 +0000 @@ -1,3 +1,10 @@ +2002-07-01 Sam Steingold <sds@gnu.org> + + * textmodes/tex-mode.el (tex-file): Call `save-some-buffers' + before `tex-main-file' because if the current buffer is new, its + file might not exist yet, and then `tex-main-file' will + incorrectly return "foo.tex.tex". + 2002-07-01 Juanma Barranquero <lektu@terra.es> * ido.el (ido-minibuffer-setup-hook): Doc fix. @@ -27,7 +34,7 @@ * info.el (Info-index): Get immediate error if used in `dir'. - * textmodes/picture.el (picture-forward-column) + * textmodes/picture.el (picture-forward-column) (picture-move-down): Never deactivate the mark. 2002-06-30 Simon Josefsson <jas@extundo.com>
--- a/lisp/textmodes/tex-mode.el Mon Jul 01 16:17:27 2002 +0000 +++ b/lisp/textmodes/tex-mode.el Mon Jul 01 19:55:45 2002 +0000 @@ -529,9 +529,9 @@ (list (concat slash citations opt arg) 3 'font-lock-constant-face) ;; ;; Text between `` quotes ''. - (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "") t) - "[^'\">]+" ;a bit pessimistic - (regexp-opt `("''" "\">" "\"'" ">>" "") t)) + (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "k") t) + "[^'\">{]+" ;a bit pessimistic + (regexp-opt `("''" "\">" "\"'" ">>" "{") t)) 'font-lock-string-face) ;; ;; Command names, special and general. @@ -1678,10 +1678,10 @@ This function is more useful than \\[tex-buffer] when you need the `.aux' file of LaTeX to have the correct name." (interactive) + (when tex-offer-save + (save-some-buffers)) (let* ((source-file (tex-main-file)) (file-dir (file-name-directory (expand-file-name source-file)))) - (if tex-offer-save - (save-some-buffers)) (if (tex-shell-running) (tex-kill-job) (tex-start-shell))