diff options
Diffstat (limited to 'lisp/obsolete/rcompile.el')
| -rw-r--r-- | lisp/obsolete/rcompile.el | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/lisp/obsolete/rcompile.el b/lisp/obsolete/rcompile.el index 29931d9bda4..d7020f0d074 100644 --- a/lisp/obsolete/rcompile.el +++ b/lisp/obsolete/rcompile.el @@ -1,4 +1,4 @@ -;;; rcompile.el --- run a compilation on a remote machine +;;; rcompile.el --- run a compilation on a remote machine -*- lexical-binding: t; -*- ;; Copyright (C) 1993-1994, 2001-2021 Free Software Foundation, Inc. @@ -76,14 +76,12 @@ (defcustom remote-compile-host nil "Host for remote compilations." - :type '(choice string (const nil)) - :group 'remote-compile) + :type '(choice string (const nil))) (defcustom remote-compile-user nil "User for remote compilations. nil means use the value returned by \\[user-login-name]." - :type '(choice string (const nil)) - :group 'remote-compile) + :type '(choice string (const nil))) (defcustom remote-compile-run-before nil "Command to run before compilation. @@ -91,18 +89,15 @@ 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." - :type '(choice string (const nil)) - :group 'remote-compile) + :type '(choice string (const nil))) (defcustom remote-compile-prompt-for-host nil "Non-nil means prompt for host if not available from filename." - :type 'boolean - :group 'remote-compile) + :type 'boolean) (defcustom remote-compile-prompt-for-user nil "Non-nil means prompt for user if not available from filename." - :type 'boolean - :group 'remote-compile) + :type 'boolean) ;;;; internal variables @@ -123,7 +118,7 @@ nil means run no commands." "Compile the current buffer's directory on HOST. Log in as USER. See \\[compile]." (interactive - (let (host user command prompt l l-host l-user) + (let (host user command prompt) ;; l l-host l-user (setq prompt (if (stringp remote-compile-host) (format "Compile on host (default %s): " remote-compile-host) @@ -153,7 +148,7 @@ See \\[compile]." (setq remote-compile-user user)) ((null remote-compile-user) (setq remote-compile-user (user-login-name)))) - (let* (localname ;; Pacify byte-compiler. + (let* (;; localname ;; Pacify byte-compiler. (compile-command (format "%s %s -l %s \"(%scd %s; %s)\"" remote-shell-program |