Mercurial > emacs
comparison lisp/textmodes/texinfo.el @ 2835:6af690e58256
(texinfo-tex-region): Update name of tex-set-buffer-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 16 May 1993 21:14:05 +0000 |
| parents | ce2187c33f4c |
| children | 573fc5cd8175 |
comparison
equal
deleted
inserted
replaced
| 2834:ce2187c33f4c | 2835:6af690e58256 |
|---|---|
| 22 ;; along with GNU Emacs; see the file COPYING. If not, write to | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to |
| 23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 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 |
| 31 (if texinfo-mode-syntax-table | 31 (if texinfo-mode-syntax-table |
| 32 nil | 32 nil |
| 401 (set-buffer temp-buffer) | 401 (set-buffer temp-buffer) |
| 402 (erase-buffer) | 402 (erase-buffer) |
| 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 " " |
| 413 tex-out-file "\n"))) | 413 tex-out-file "\n"))) |
| 414 (tex-recenter-output-buffer 0)) | 414 (tex-recenter-output-buffer 0)) |