Mercurial > emacs
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)) |