From xemacs-m  Wed Apr  9 20:11:59 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA17294
	for <xemacs-beta@xemacs.org>; Wed, 9 Apr 1997 20:11:58 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id DAA15099; Thu, 10 Apr 1997 03:11:58 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: texnfo-tex.el is customized
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 10 Apr 1997 03:11:58 +0200
Message-ID: <kigbu7nwujl.fsf@jagor.srce.hr>
Lines: 72
X-Mailer: Gnus v5.4.42/XEmacs 19.15

--- lisp/packages/texnfo-tex.el.orig	Thu Apr 10 03:10:36 1997
+++ lisp/packages/texnfo-tex.el	Thu Apr 10 03:09:23 1997
@@ -66,30 +66,49 @@
 
 ;;; Variable definitions:
 
-(require 'shell)
-
-(defvar texinfo-tex-shell-cd-command "cd"
-  "Command to give to shell running TeX to change directory.")
+(defgroup texinfo-tex nil
+  "TeX and hardcopy printing commands for Texinfo mode"
+  :prefix "texinfo-"
+  :group 'tex
+  :tag "Texinfo TeX"
+  :group 'texinfo)
 
-(defvar texinfo-tex-command "tex"
-  "*Command used by  texinfo-tex-region  to run tex on a region.")
-
-(defvar texinfo-texindex-command "texindex"
-  "*Command used by  texinfo-texindex  to sort unsorted index files.")
+(require 'shell)
 
-(defvar texinfo-tex-dvi-print-command "lpr -d"
-  "*Command string used by \\[tex-print] to print a .dvi file.")
+(defcustom texinfo-tex-shell-cd-command "cd"
+  "Command to give to shell running TeX to change directory."
+  :type 'string
+  :group 'texinfo-tex)
+
+(defcustom texinfo-tex-command "tex"
+  "*Command used by  texinfo-tex-region  to run tex on a region."
+  :type 'string
+  :group 'texinfo-tex)
+
+(defcustom texinfo-texindex-command "texindex"
+  "*Command used by  texinfo-texindex  to sort unsorted index files."
+  :type 'string
+  :group 'texinfo-tex)
+
+(defcustom texinfo-tex-dvi-print-command "lpr -d"
+  "*Command string used by \\[tex-print] to print a .dvi file."
+  :type 'string
+  :group 'texinfo-tex)
 
-(defvar texinfo-show-tex-queue-command "lpq"
+(defcustom texinfo-show-tex-queue-command "lpq"
   "*Command string used to show the Texinfo TeX print queue.
 Command is used by \\[texinfo-show-tex-print-queue] and it
-should show the queue that \\[texinfo-tex-print] puts jobs on.")
+should show the queue that \\[texinfo-tex-print] puts jobs on."
+  :type 'string
+  :group 'texinfo-tex)
 
-(defvar texinfo-delete-from-print-queue-command "lprm"
+(defcustom texinfo-delete-from-print-queue-command "lprm"
   "*Command string used to delete a job from the line printer queue.
 Command is used by \\[texinfo-delete-from-tex-print-queue] based on
 number provided by a previous \\[texinfo-show-tex-print-queue]
-command.")
+command."
+  :type 'string
+  :group 'texinfo-tex)
 
 (defvar texinfo-tex-trailer "@bye"
   "String appended after a region sent to TeX by texinfo-tex-region.")

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

