[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: problem with tex-start-options-string
From: |
Kevin Rodgers |
Subject: |
Re: problem with tex-start-options-string |
Date: |
Fri, 29 Aug 2003 11:45:25 -0600 |
User-agent: |
Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
[Followup-To: gnu.emacs.bug]
Matthias Meulien wrote:
Recent (La)TeX versions provides a command line option `-src' to
insert source specials to perform inverse search: A mouse click in the
xdvi window can open an editor with the corresponding place in the
source file.
So I want the `tex-file' command to use the following syntax:
,----
| [matthias@clarinde ~/TeX]$ latex -src-specials -interaction=nonstop FILE
| This is TeXk, Version 3.14159 (Web2C 7.4.5)
| Source specials enabled.
| LaTeX2e <2001/06/01>
| Babel <v3.7h> and hyphenation patterns for american, french, german,
| ngerman, basque, italian, portuges, russian, spanish, nohyphenation,
| loaded.
| ...
`----
I have set `tex-start-options-string' to the string "-src-specials
-interaction=nonstop". But it is passed to (from `tex-start-tex')
`shell-quote-argument' resulting in the following error:
,----
| [matthias@clarinde ~/TeX]$ latex -src-specials\ -interaction\=nonstopmode FILE
| latex: unrecognized option `-src-specials -interaction=nonstopmode'
| Try `latex --help' for more information.
`----
Note the two backslash. How should I do ? Today I use the following
(in appropriate hooks):
(setq tex-start-options-string nil)
(setq tex-run-command "tex -src-specials -interaction=nonstopmode")
(setq latex-run-command "latex -src-specials -interaction=nonstopmode")
Ugly isn't it ? Don't you think `tex-start-options-string' should be
a list ?
Yes. Here's a patch that does so and renames it `tex-start-options':
*** emacs-21.3/lisp/textmodes/tex-mode.el Sun Mar 3 18:38:27 2002
--- emacs-21.3/lisp/textmodes/tex-mode.el Fri Aug 29 11:20:21 2003
***************
*** 120,133 ****
:group 'tex-run)
;;;###autoload
! (defcustom tex-start-options-string "\\nonstopmode\\input"
! "*TeX options to use when running TeX.
! These precede the input file name. If nil, TeX runs without option.
! See the documentation of `tex-command'."
! :type '(radio (const :tag "Interactive \(nil\)" nil)
(const :tag "Nonstop \(\"\\nonstopmode\\input\"\)"
! "\\nonstopmode\\input")
! (string :tag "String at your choice"))
:group 'tex-run
:version "20.4")
--- 120,134 ----
:group 'tex-run)
;;;###autoload
! (defcustom tex-start-options '("\\nonstopmode\\input")
! "*List of strings to pass as TeX options to `tex-command'.
! These precede the input file name. If nil, run TeX without any options."
! :type '(radio (const :tag "Interactive \(\)"
! ())
(const :tag "Nonstop \(\"\\nonstopmode\\input\"\)"
! ("\\nonstopmode\\input"))
! (repeat :tag "Other \(\"-option\" ...\)"
! (string :tag "Option")))
:group 'tex-run
:version "20.4")
***************
*** 238,244 ****
(defvar tex-command nil
"*Command to run TeX.
If this string contains an asterisk \(`*'\), that is replaced by the file
name\;
! otherwise the \(shell-quoted\) value of `tex-start-options-string' and
the file name are added at the end, with blanks as separators.
In TeX, LaTeX, and SliTeX Mode this variable becomes buffer local.
--- 239,245 ----
(defvar tex-command nil
"*Command to run TeX.
If this string contains an asterisk \(`*'\), that is replaced by the file
name\;
! otherwise the \(shell-quoted\) elements of `tex-start-options' and
the file name are added at the end, with blanks as separators.
In TeX, LaTeX, and SliTeX Mode this variable becomes buffer local.
***************
*** 1447,1455 ****
(comint-quote-filename file)
(substring command (1+ star)))
(concat command " "
! (if (< 0 (length tex-start-options-string))
!
(concat
!
(shell-quote-argument tex-start-options-string) " "))
(comint-quote-filename file)))))
(tex-send-tex-command compile-command dir)))
--- 1448,1454 ----
(comint-quote-filename file)
(substring command (1+ star)))
(concat command " "
! (mapconcat 'shell-quote-argument tex-start-options " ")
(comint-quote-filename file)))))
(tex-send-tex-command compile-command dir)))
*** emacs-21.3/lisp/textmodes/texinfo.el Mon Jul 16 06:23:00 2001
--- emacs-21.3/lisp/textmodes/texinfo.el Fri Aug 29 11:00:10 2003
***************
*** 955,963 ****
(interactive)
(require 'tex-mode)
(let ((tex-command texinfo-texi2dvi-command)
! ;; Disable tex-start-options-string. texi2dvi would not
;; understand anything specified here.
! (tex-start-options-string ""))
(tex-buffer)))
(defun texinfo-texindex ()
--- 955,963 ----
(interactive)
(require 'tex-mode)
(let ((tex-command texinfo-texi2dvi-command)
! ;; Disable tex-start-options. texi2dvi would not
;; understand anything specified here.
! (tex-start-options '()))
(tex-buffer)))
(defun texinfo-texindex ()
--
Kevin Rodgers