diff options
| author | Sam Steingold | 2002-07-01 19:55:45 +0000 |
|---|---|---|
| committer | Sam Steingold | 2002-07-01 19:55:45 +0000 |
| commit | 7abc9addc7501da288dd0af9fd2bdcf8bcca0c6d (patch) | |
| tree | 294728059f9080b2bcf79980d922906edb16df29 /lisp/textmodes | |
| parent | ce827a7d43e491c5c8782e7e9f61779d9066596d (diff) | |
| download | emacs-7abc9addc7501da288dd0af9fd2bdcf8bcca0c6d.tar.gz emacs-7abc9addc7501da288dd0af9fd2bdcf8bcca0c6d.zip | |
(tex-file): call `save-some-buffers' before `tex-main-file'
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 4d4a7d9302e..b78c50b2ec1 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -529,9 +529,9 @@ An alternative value is \" . \", if you use a font with a narrow period." | |||
| 529 | (list (concat slash citations opt arg) 3 'font-lock-constant-face) | 529 | (list (concat slash citations opt arg) 3 'font-lock-constant-face) |
| 530 | ;; | 530 | ;; |
| 531 | ;; Text between `` quotes ''. | 531 | ;; Text between `` quotes ''. |
| 532 | (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "«") t) | 532 | (cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "k") t) |
| 533 | "[^'\">»]+" ;a bit pessimistic | 533 | "[^'\">{]+" ;a bit pessimistic |
| 534 | (regexp-opt `("''" "\">" "\"'" ">>" "»") t)) | 534 | (regexp-opt `("''" "\">" "\"'" ">>" "{") t)) |
| 535 | 'font-lock-string-face) | 535 | 'font-lock-string-face) |
| 536 | ;; | 536 | ;; |
| 537 | ;; Command names, special and general. | 537 | ;; Command names, special and general. |
| @@ -1678,10 +1678,10 @@ See \\[tex-file] for an alternative." | |||
| 1678 | This function is more useful than \\[tex-buffer] when you need the | 1678 | This function is more useful than \\[tex-buffer] when you need the |
| 1679 | `.aux' file of LaTeX to have the correct name." | 1679 | `.aux' file of LaTeX to have the correct name." |
| 1680 | (interactive) | 1680 | (interactive) |
| 1681 | (when tex-offer-save | ||
| 1682 | (save-some-buffers)) | ||
| 1681 | (let* ((source-file (tex-main-file)) | 1683 | (let* ((source-file (tex-main-file)) |
| 1682 | (file-dir (file-name-directory (expand-file-name source-file)))) | 1684 | (file-dir (file-name-directory (expand-file-name source-file)))) |
| 1683 | (if tex-offer-save | ||
| 1684 | (save-some-buffers)) | ||
| 1685 | (if (tex-shell-running) | 1685 | (if (tex-shell-running) |
| 1686 | (tex-kill-job) | 1686 | (tex-kill-job) |
| 1687 | (tex-start-shell)) | 1687 | (tex-start-shell)) |