jtn@potomac.ads.com (John T. Nelson) (07/06/88)
At Advanced Decision Systems, we've isolated the problem we were
having with TeX-mode in GNU Emacs 18.51 and have installed a couple
fixes in the tex-mode.el file that I am posting here.
These patches are somewhat different from those posted by others. See
what you think!
*** lisp/tex-mode.el Thu May 12 08:52:18 1988
--- /usr/local/emacs/lisp/tex-mode.el Tue Jun 21 15:19:31 1988
***************
*** 345,351 ****
(defun TeX-start-shell ()
(require 'shell)
(save-excursion
! (set-buffer (make-shell "TeX-shell" nil 'nostartfile "-v"))
(setq TeX-shell-map (copy-keymap shell-mode-map))
(TeX-define-common-keys TeX-shell-map)
(use-local-map TeX-shell-map)))
--- 345,351 ----
(defun TeX-start-shell ()
(require 'shell)
(save-excursion
! (set-buffer (make-shell "TeX-shell" shell-file-name nil "-v"))
(setq TeX-shell-map (copy-keymap shell-mode-map))
(TeX-define-common-keys TeX-shell-map)
(use-local-map TeX-shell-map)))
***************
*** 380,386 ****
(or TeX-zap-file (setq TeX-zap-file (make-temp-name "#tz")))
(let ((tex-out-file (concat TeX-zap-file ".tex"))
(temp-buffer (get-buffer-create " TeX-Output-Buffer"))
! (zap-directory (expand-directory-name TeX-directory)))
(save-excursion
(save-restriction
(widen)
--- 380,386 ----
(or TeX-zap-file (setq TeX-zap-file (make-temp-name "#tz")))
(let ((tex-out-file (concat TeX-zap-file ".tex"))
(temp-buffer (get-buffer-create " TeX-Output-Buffer"))
! (zap-directory (file-name-as-directory (expand-file-name TeX-directory))))
(save-excursion
(save-restriction
(widen)
--
John T. Nelson UUCP: sun!sundc!potomac!jtn
Advanced Decision Systems Internet: jtn@potomac.ads.com
1500 Wilson Blvd #512; Arlington, VA 22209-2401 (703) 243-1611
"Hi... My name is Hobbes. I'm the product of a malicious 5-year old's
twisted and destructive imagination. Would YOU like to be my friend?"