Add defgroup's; use defcustom for user vars.

[gnu-emacs] / lisp / rcompile.el

diff --git a/lisp/rcompile.el b/lisp/rcompile.el
index c2d5b3f62deebbff22f26ebb9763a03cf0e9b330..c91627160ebddc17248abd79ef2470f68485308e 100644 (file)
--- a/lisp/rcompile.el
+++ b/lisp/rcompile.el
@@ -5,7 +5,6 @@
 ;; Author: Albert    <alon@milcse.rtsg.mot.com>
 ;; Maintainer: FSF
 ;; Created: 1993 Oct 6
-;; Version: 1.1
 ;; Keywords: tools, processes
 
 ;; This file is part of GNU Emacs.
@@ -70,25 +69,41 @@
 
 ;;;; user defined variables
 
-(defvar remote-compile-host nil
-  "*Host for remote compilations.")
+(defgroup remote-compile nil
+  "Run a compilation on a remote machine"
+  :group 'processes
+  :group 'tools)
 
-(defvar remote-compile-user nil
+
+(defcustom remote-compile-host nil
+  "*Host for remote compilations."
+  :type '(choice string (const nil))
+  :group 'remote-compile)
+
+(defcustom remote-compile-user nil
   "User for remote compilations.
-nil means use the value returned by \\[user-login-name].")
+nil means use the value returned by \\[user-login-name]."
+  :type '(choice string (const nil))
+  :group 'remote-compile)
 
-(defvar remote-compile-run-before nil
+(defcustom remote-compile-run-before nil
   "*Command to run before compilation.
 This can be used for setting up environment variables,
 since rsh does not invoke the shell as a login shell and files like .login
 \(tcsh\) and .bash_profile \(bash\) are not run.
-nil means run no commands.")
-
-(defvar remote-compile-prompt-for-host nil
-  "*Non-nil means prompt for host if not available from filename.")
-
-(defvar remote-compile-prompt-for-user nil
-  "*Non-nil means prompt for user if not available from filename.")
+nil means run no commands."
+  :type '(choice string (const nil))
+  :group 'remote-compile)
+
+(defcustom remote-compile-prompt-for-host nil
+  "*Non-nil means prompt for host if not available from filename."
+  :type 'boolean
+  :group 'remote-compile)
+
+(defcustom remote-compile-prompt-for-user nil
+  "*Non-nil means prompt for user if not available from filename."
+  :type 'boolean
+  :group 'remote-compile)
 
 ;;;; internal variables