diff options
| author | Richard M. Stallman | 1993-05-16 21:14:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-16 21:14:05 +0000 |
| commit | c678a343811af4a296271bbec80f061d746d1e85 (patch) | |
| tree | 36484237583e751aab5df9b5bb8d359f536b8c9c | |
| parent | e67adf468642df0f277257a61ad1492d4fcb0298 (diff) | |
| download | emacs-c678a343811af4a296271bbec80f061d746d1e85.tar.gz emacs-c678a343811af4a296271bbec80f061d746d1e85.zip | |
(texinfo-tex-region): Update name of tex-set-buffer-directory.
| -rw-r--r-- | lisp/textmodes/texinfo.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 32e99785e6b..203e5b17222 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | ;;; Don't you dare insert any `require' calls in this file--rms. | 27 | ;;; Don't you dare insert any `require' calls at top level in this file--rms. |
| 28 | 28 | ||
| 29 | (defvar texinfo-mode-syntax-table nil) | 29 | (defvar texinfo-mode-syntax-table nil) |
| 30 | 30 | ||
| @@ -403,10 +403,10 @@ tex-trailer is appended to the temporary file after the region." | |||
| 403 | ;; make sure trailer isn't hidden by a comment | 403 | ;; make sure trailer isn't hidden by a comment |
| 404 | (insert-string "\n") | 404 | (insert-string "\n") |
| 405 | (if local-tex-trailer (insert-string local-tex-trailer)) | 405 | (if local-tex-trailer (insert-string local-tex-trailer)) |
| 406 | (set-buffer-directory temp-buffer zap-directory) | 406 | (tex-set-buffer-directory temp-buffer zap-directory) |
| 407 | (write-region (point-min) (point-max) tex-out-file t nil)))) | 407 | (write-region (point-min) (point-max) tex-out-file t nil)))) |
| 408 | 408 | ||
| 409 | (set-buffer-directory "*tex-shell*" zap-directory) | 409 | (tex-set-buffer-directory "*tex-shell*" zap-directory) |
| 410 | (send-string "tex-shell" (concat tex-shell-cd-command " " | 410 | (send-string "tex-shell" (concat tex-shell-cd-command " " |
| 411 | zap-directory "\n")) | 411 | zap-directory "\n")) |
| 412 | (send-string "tex-shell" (concat texinfo-tex-command " " | 412 | (send-string "tex-shell" (concat texinfo-tex-command " " |