(tex-send-command): Give meaningful error message.

This commit is contained in:
Karl Heuer 1995-11-04 00:39:25 +00:00
parent dc8cec25f0
commit c93931c390

View file

@ -883,7 +883,7 @@ substitution will be made in COMMAND. COMMAND can be any expression that
evaluates to a command string."
(save-excursion
(let* ((cmd (eval command))
(proc (get-process "tex-shell"))
(proc (or (get-process "tex-shell") (error "No TeX subprocess")))
(buf (process-buffer proc))
(star (string-match "\\*" cmd))
(string