-(defvar rlogin-program "rlogin"
- "*Name of program to invoke rlogin")
-
-(defvar rlogin-explicit-args nil
- "*List of arguments to pass to rlogin on the command line.")
-
-(defvar rlogin-mode-hook nil
- "*Hooks to run after setting current buffer to rlogin-mode.")
-
-(defvar rlogin-process-connection-type nil
+(defgroup rlogin nil
+ "Remote login interface"
+ :group 'processes
+ :group 'unix)
+
+
+(defcustom rlogin-program "rlogin"
+ "*Name of program to invoke rlogin"
+ :type 'string
+ :group 'rlogin)
+
+(defcustom rlogin-explicit-args nil
+ "*List of arguments to pass to rlogin on the command line."
+ :type '(repeat (string :tag "Argument"))
+ :group 'rlogin)
+
+(defcustom rlogin-mode-hook nil
+ "*Hooks to run after setting current buffer to rlogin-mode."
+ :type 'hook
+ :group 'rlogin)
+
+(defcustom rlogin-process-connection-type
+ (save-match-data
+ ;; Solaris 2.x `rlogin' will spew a bunch of ioctl error messages if
+ ;; stdin isn't a tty.
+ (cond ((and (boundp 'system-configuration)
+ (stringp system-configuration)
+ (string-match "-solaris2" system-configuration))
+ t)
+ (t nil)))