Lines Matching +refs:compile +refs:command
0 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages
30 ;; This package provides the compile facilities documented in the Emacs user's
71 (eval-when-compile (require 'cl))
452 (defcustom compilation-read-command t
453 "*Non-nil means \\[compile] reads the compilation command to use.
454 Otherwise, \\[compile] just uses the value of `compile-command'."
460 "*Non-nil means \\[compile] asks which buffers to save before compiling.
475 (defcustom compile-command "make -k "
476 "*Last shell command used to do a compilation; default for next compilation.
485 (set (make-local-variable 'compile-command)
490 ;;;###autoload(put 'compile-command 'safe-local-variable 'stringp)
523 ;; History of compile commands.
524 (defvar compile-history nil)
598 ;; Used for compatibility with the old compile.el.
639 (eval-when-compile ;Don't keep it at runtime if not needed.
828 ;; The old compile.el had here an undocumented hook that
876 (defun compile (command &optional comint)
878 Runs COMMAND, a shell command, in a separate process asynchronously
881 You can then use the command \\[next-error] to find the next error message
887 Interactively, prompts for the command if `compilation-read-command' is
888 non-nil; otherwise uses `compile-command'. With prefix arg, always prompts.
903 (let ((command (eval compile-command)))
904 (if (or compilation-read-command current-prefix-arg)
905 (read-from-minibuffer "Compile command: "
906 command nil nil
907 (if (equal (car compile-history) command)
908 '(compile-history . 1)
909 'compile-history))
910 command))
912 (unless (equal command (eval compile-command))
913 (setq compile-command command))
916 (compilation-start command comint))
918 ;; run compile with the default command line
920 "Re-compile the program including the current buffer.
922 original use. Otherwise, recompile using `compile-command'."
930 `(,(eval compile-command))))))
943 (defun compilation-buffer-name (mode-name mode-command name-function)
955 ((and (eq mode-command major-mode)
962 ;; compile is complete.
963 (defun compile-internal (command error-message
976 (compilation-start command nil name-function highlight-regexp)))
977 (make-obsolete 'compile-internal 'compilation-start)
980 (defun compilation-start (command &optional mode name-function highlight-regexp)
981 "Run compilation command COMMAND (low level interface).
982 If COMMAND starts with a cd command, that becomes the `default-directory'.
1021 ;; first transfer directory from where M-x compile was called
1027 ;; Then evaluate a cd command if any, but don't perform it yet, else start-command
1029 (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)
1031 (substitute-env-vars (match-string 1 command))
1051 command "\n")
1078 (list command mode name-function highlight-regexp))
1097 shell-file-name nil `("-c" ,command))))
1098 (start-process-shell-command (downcase mode-name)
1099 outbuf command))))
1113 (message "Executing `%s'..." command)
1120 command)))
1138 (message "Executing `%s'...done" command)))
1178 (define-key map [mouse-2] 'compile-goto-error)
1180 (define-key map "\C-c\C-c" 'compile-goto-error)
1181 (define-key map "\C-m" 'compile-goto-error)
1195 (define-key map "\M-\C-m" 'compile-goto-error)
1208 (define-key map [mouse-2] 'compile-goto-error)
1210 (define-key map "\C-m" 'compile-goto-error)
1220 (define-key map [mouse-2] 'compile-goto-error)
1222 (define-key map "\C-c\C-c" 'compile-goto-error)
1223 (define-key map "\C-m" 'compile-goto-error)
1247 (define-key map [menu-bar compilation compilation-compile]
1248 '("Compile..." . compile))
1283 move point to the error message line and type \\[compile-goto-error].
1316 (if (boundp 'byte-compile-bound-variables)
1317 (memq (cdr v) byte-compile-bound-variables)))
1586 "Kill the process made by the \\[compile] or \\[grep] commands."
1593 (defalias 'compile-mouse-goto-error 'compile-goto-error)
1595 (defun compile-goto-error (&optional event)
1597 Use this command in a compilation log buffer. Sets the mark at point there."
1671 This is useful when you compile temporary files, but want
1801 (add-hook 'pre-command-hook
1821 (remove-hook 'pre-command-hook
1928 (setq filename (command-line-normalize-file-name filename))
1941 ;;; Compatibility with the old compile.el.
1943 (defun compile-buffer-substring (n) (if n (match-string n)))
1985 ;; in the old compile.el so things might not all be setup yet.
2035 (provide 'compile)
2038 ;;; compile.el ends here