# HG changeset patch # User Sam Steingold # Date 1025553345 0 # Node ID 7177a47bc55757abce25f052bc9981d595d8e7d9 # Parent c655b113a51feb7b55653e612d9b57f168f060dd (tex-file): call `save-some-buffers' before `tex-main-file' diff -r c655b113a51f -r 7177a47bc557 lisp/ChangeLog --- 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 + + * 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 * 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 diff -r c655b113a51f -r 7177a47bc557 lisp/textmodes/tex-mode.el --- 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))