Lines Matching +refs:compile +refs:command
32 (eval-when-compile (require 'cl))
33 (require 'compile)
45 (eval-when-compile
74 (defun tramp-remap-command (old-command new-command)
79 (if (functionp 'command-remapping)
82 `(define-key tramp-minor-mode-map [remap ,old-command] new-command))
86 (define-key tramp-minor-mode-map x new-command))
87 (where-is-internal old-command))))
89 (tramp-remap-command 'compile 'tramp-compile)
90 (tramp-remap-command 'recompile 'tramp-recompile)
97 (command-execute (if tramp-minor-mode 'tramp-compile 'compile))
98 :active (fboundp 'compile)])
102 (command-execute (if tramp-minor-mode 'tramp-recompile 'recompile))
103 :active (fboundp 'compile)]))
107 (defun tramp-compile (command)
110 (if (or compilation-read-command current-prefix-arg)
111 (list (read-from-minibuffer "Compile command: "
112 compile-command nil nil
113 '(compile-history . 1)))
114 (list compile-command)))
115 (setq compile-command command)
122 (tramp-handle-shell-command command (get-buffer "*Compilation*"))
128 "Re-compile on remote host."
131 (tramp-handle-shell-command compile-command (get-buffer "*Compilation*"))