bug-gnu-emacs
[Top][All Lists]
Advanced

[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:

,----
| address@hidden ~/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:

,----
| address@hidden ~/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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]