From 746c30e216a31e283b1bcf975b1da11c9f9b5bb4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Nov 2002 05:05:47 +0000 Subject: [PATCH] (tex-dvi-view-command): Value can be sexp. Initialize to a suitable sexp. (tex-view): Evaluate tex-dvi-view-command and use the value. --- lisp/textmodes/tex-mode.el | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index f051359143d..f3f7e9dc685 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -196,20 +196,14 @@ use." :group 'tex-view) ;;;###autoload -(defcustom tex-dvi-view-command nil +(defcustom tex-dvi-view-command '(if (eq window-system 'x) \"xdvi\" \"dvi2tty * | cat -s\") "*Command used by \\[tex-view] to display a `.dvi' file. +If it is a string, that specifies the command directly. If this string contains an asterisk (`*'), that is replaced by the file name; -otherwise, the file name, preceded by blank, is added at the end. - -This can be set conditionally so that the previewer used is suitable for the -window system being used. For example, - - (setq tex-dvi-view-command - (if (eq window-system 'x) \"xdvi\" \"dvi2tty * | cat -s\")) +otherwise, the file name, preceded by a space, is added at the end. -would tell \\[tex-view] to use xdvi under X windows and to use dvi2tty -otherwise." - :type '(choice (const nil) string) +If the value is a form, it is evaluated to get the command to use." + :type '(choice (const nil) string sexp) :group 'tex-view) ;;;###autoload @@ -1800,7 +1794,7 @@ because there is no standard value that would generally work." (interactive) (or tex-dvi-view-command (error "You must set `tex-dvi-view-command'")) - (let ((tex-dvi-print-command tex-dvi-view-command)) + (let ((tex-dvi-print-command (eval tex-dvi-view-command))) (tex-print))) (defun tex-append (file-name suffix) -- 2.39.2