mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(tex-file): call save-some-buffers' before tex-main-file'

Browse Source
This commit is contained in:
Sam Steingold 2002-07-01 19:55:45 +00:00
parent ce827a7d43
commit 7abc9addc7
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -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>

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

@ -529,9 +529,9 @@ An alternative value is \" . \", if you use a font with a narrow period."
(list (concat slash citations opt arg) 3 'font-lock-constant-face)
;;
;; Text between `` quotes ''.
(cons (concat (regexp-opt `("``" "\"<" "\"`" "<<" "<EFBFBD>«") t)
"[^'\"><EFBFBD>»]+" ;a bit pessimistic
(regexp-opt `("''" "\">" "\"'" ">>" "<EFBFBD>»") 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 @@ See \\[tex-file] for an alternative."
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))