Add defgroups, and use defcustom.

[gnu-emacs] / lisp / rcompile.el

diff --git a/lisp/rcompile.el b/lisp/rcompile.el
index c2d5b3f62deebbff22f26ebb9763a03cf0e9b330..ec97c7c4dcbfa75f33901f8433e5466876542a10 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.")
+nil means run no commands."
+  :type '(choice string (const nil))
+  :group 'remote-compile)
 
-(defvar remote-compile-prompt-for-host nil
-  "*Non-nil means prompt for host if not available from filename.")
+(defcustom remote-compile-prompt-for-host nil
+  "*Non-nil means prompt for host if not available from filename."
+  :type 'boolean
+  :group 'remote-compile)
 
-(defvar remote-compile-prompt-for-user nil
-  "*Non-nil means prompt for user if not available from filename.")
+(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
 
@@ -158,6 +173,7 @@ See \\[compile]."
     ;; compilation-parse-errors will find referenced files by ange-ftp.
     (save-excursion
       (set-buffer compilation-last-buffer)
+      (make-variable-buffer-local 'comint-file-name-prefix)
       (setq comint-file-name-prefix (concat "/" host ":")))))
 
 ;;; rcompile.el ends here