Mercurial > hg > xemacs-beta

comparison lisp/packages/rcompile.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents cca96a509cfe
children 41ff10fd062f
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
70 ;;; The following should not be needed. 70 ;;; The following should not be needed.
71 ;;; (eval-when-compile (require 'ange-ftp)) 71 ;;; (eval-when-compile (require 'ange-ftp))
72 72
73 ;;;; user defined variables 73 ;;;; user defined variables
74 74
75 (defvar remote-compile-host nil 75 (defgroup remote-compile nil
76 "*Host for remote compilations.") 76 "Run a compilation on a remote machine"
77 :group 'processes
78 :group 'tools)
77 79
78 (defvar remote-compile-user nil 80
81 (defcustom remote-compile-host nil
82 "*Host for remote compilations."
83 :type '(choice string (const nil))
84 :group 'remote-compile)
85
86 (defcustom remote-compile-user nil
79 "User for remote compilations. 87 "User for remote compilations.
80 nil means use the value returned by \\[user-login-name].") 88 nil means use the value returned by \\[user-login-name]."
89 :type '(choice string (const nil))
90 :group 'remote-compile)
81 91
82 (defvar remote-compile-run-before nil 92 (defcustom remote-compile-run-before nil
83 "*Command to run before compilation. 93 "*Command to run before compilation.
84 This can be used for setting up environment variables, 94 This can be used for setting up environment variables,
85 since rsh does not invoke the shell as a login shell and files like .login 95 since rsh does not invoke the shell as a login shell and files like .login
86 \(tcsh\) and .bash_profile \(bash\) are not run. 96 \(tcsh\) and .bash_profile \(bash\) are not run.
87 nil means run no commands.") 97 nil means run no commands."
98 :type '(choice string (const nil))
99 :group 'remote-compile)
88 100
89 (defvar remote-compile-prompt-for-host nil 101 (defcustom remote-compile-prompt-for-host nil
90 "*Non-nil means prompt for host if not available from filename.") 102 "*Non-nil means prompt for host if not available from filename."
103 :type 'boolean
104 :group 'remote-compile)
91 105
92 (defvar remote-compile-prompt-for-user nil 106 (defcustom remote-compile-prompt-for-user nil
93 "*Non-nil means prompt for user if not available from filename.") 107 "*Non-nil means prompt for user if not available from filename."
108 :type 'boolean
109 :group 'remote-compile)
94 110
95 ;;;; internal variables 111 ;;;; internal variables
96 112
97 ;; History of remote compile hosts and users 113 ;; History of remote compile hosts and users
98 (defvar remote-compile-host-history nil) 114 (defvar remote-compile-host-history nil)