[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Richard M. Stallman]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.121 
emacs/lisp/textmodes/tex-mode.el:1.122
*** emacs/lisp/textmodes/tex-mode.el:1.121      Sun Mar  3 20:39:29 2002
--- emacs/lisp/textmodes/tex-mode.el    Fri Apr 26 17:19:14 2002
***************
*** 120,135 ****
    :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")
  
  (defvar standard-latex-block-names
    '("abstract"                "array"         "center"        "description"
--- 120,148 ----
    :group 'tex-run)
  
  ;;;###autoload
! (defcustom tex-start-options nil
!   "*TeX options to use when starting TeX.
! These precede the commands in `tex-start-options'
! and the input file name.  If nil, TeX runs with no options.
  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 "21.4")
! 
! ;;;###autoload
! (defcustom tex-start-commands "\\nonstopmode\\input"
!   "*TeX commands to use when starting TeX.
! These precede the input file name.  If nil, no commands are used.
! 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 "21.4")
  
  (defvar standard-latex-block-names
    '("abstract"                "array"         "center"        "description"
***************
*** 238,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\) 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.
  In these modes, use \\[set-variable] if you want to change it for the
--- 251,259 ----
  (defvar tex-command nil
    "*Command to run TeX.
  If this string contains an asterisk \(`*'\), that is replaced by the file 
name\;
! otherwise the value of `tex-start-options', the \(shell-quoted\)
! value of `tex-start-commands', and the file name are added at the end
! with blanks as separators.
  
  In TeX, LaTeX, and SliTeX Mode this variable becomes buffer local.
  In these modes, use \\[set-variable] if you want to change it for the
***************
*** 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)))
  
--- 1461,1470 ----
                      (comint-quote-filename file)
                      (substring command (1+ star)))
              (concat command " "
!                   (if (< 0 (length tex-start-commands))
                        (concat
!                        (shell-quote-argument tex-start-commands) " "))
!                   tex-start-options
                    (comint-quote-filename file)))))
      (tex-send-tex-command compile-command dir)))