comparison lisp/textmodes/tex-mode.el @ 2265:daf268a98d5e

* tex-mode.el (tex-send-command): Fix the command sent so that no blank is inserted when replacing the asterisk with the file name.
author Jim Blandy <jimb@redhat.com>
date Fri, 19 Mar 1993 17:38:48 +0000
parents a52da8d63ff3
children 10e417efb12a
comparison
equal deleted inserted replaced
2264:87934d212841 2265:daf268a98d5e
654 if optional BACKGROUND is t. If COMMAND has no *, FILE will be appended, 654 if optional BACKGROUND is t. If COMMAND has no *, FILE will be appended,
655 preceded by a blank, to COMMAND. If FILE is nil, no substitution will be made 655 preceded by a blank, to COMMAND. If FILE is nil, no substitution will be made
656 in COMMAND. COMMAND can be any expression that evaluates to a command string." 656 in COMMAND. COMMAND can be any expression that evaluates to a command string."
657 (save-excursion 657 (save-excursion
658 (let* ((cmd (eval command)) 658 (let* ((cmd (eval command))
659 (star (string-match "\\*" cmd))) 659 (star (string-match "\\*" cmd))
660 (front (substring cmd 0 star))
661 (back (if star (substring cmd (1+ star)) "")))
660 (comint-proc-query (get-process "tex-shell") 662 (comint-proc-query (get-process "tex-shell")
661 (concat (substring cmd 0 star) 663 (concat
662 (if file (concat " " file) "") 664 (if file (if star (concat front file back)
663 (if star (substring cmd (1+ star) nil) "") 665 (concat cmd " " file))
664 (if background "&\n" "\n")))))) 666 cmd)
667 (if background "&\n" "\n"))))))
665 668
666 (defun tex-delete-last-temp-files () 669 (defun tex-delete-last-temp-files ()
667 "Delete any junk files from last temp file." 670 "Delete any junk files from last temp file."
668 (if tex-last-temp-file 671 (if tex-last-temp-file
669 (let* ((dir (file-name-directory tex-last-temp-file)) 672 (let* ((dir (file-name-directory tex-last-temp-file))