;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316&\210\305\317\307\310\320DD\321\313\322\315\316\323\322\324\325& \210\305\326\307\310\327DD\330\313\322\315\316&\207" [require compile ansi-color files subr-x custom-declare-variable scala-compile-always-ask funcall function #[0 "\300\207" [t] 1] "`scala-compile' will always ask for confirmation before running a command unless: the universal argument is provided or it is called with a string argument or if this is set to nil (in which case the last command used in the buffer is used). To change the command, the user must provide a prefix argument." :type booleanp :group scala scala-compile-suggestion #[0 "\300\207" [nil] 1] "Files can specify a suggested command to run, e.g. runMain and testOnly." stringp :safe :local t scala-compile-alt #[0 "\300\207" [#1="sbtn clean && sbtn reload"] 1 #1#] "`scala-compile' uses this command when called with the `-' prefix."] 12) #@51 The `compilation-error-regexp-alist' for `scala'. (defvar scala-compilation-error-regexp-alist '(("^\\[error][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):" 1 2 3 2 1) ("^\\[error][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 2 1) ("^\\[error][[:space:]]\\[E[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):$" 1 2 3 2 1) ("^\\[warn][[:space:]]+\\[E[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):$" 1 2 3 1 1) ("^\\[warn][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 1 1) ("^\\[info][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 0 1) ("^\\[info][[:space:]]+\\(.*\\) (\\([^:[:space:]]+\\):\\([[:digit:]]+\\))" 2 3 nil 2 1) ("^\\[warn][[:space:]][[:space:]]\\[[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):" 1 2 3 1 1)) (#$ . 1072)) (defvar scala--compile-history '("sbtn compile" "sbtn test" "sbtn testOnly ")) (defvar scala--compile-command nil nil) (make-variable-buffer-local 'scala--compile-command) (defvar scala--compile-project "build.sbt") #@448 `compile' specialised to Scala. First use in a buffer or calling with a prefix will prompt for a command, otherwise the last command is used. The command history is global. A universal argument will invoke `scala-compile-alt', which will cause the subsequent call to prompt. A prefix argument will ensure that the user is prompted to confirm the selection. A string argument will run the command (for scripting). (fn &optional EDIT-COMMAND) (defalias 'scala-compile #[256 "\306? \"\210\n\203\n \235\204\n B\f\307\204(\203\"\202>\211!\202>\310=\2032 \202>;\203;\202>\211!\262 \206H\211 \232?\205M\211\311\"\206Y\312\313\314#)\207" [compilation-ask-about-save compilation-save-buffers-predicate scala-compile-suggestion scala--compile-history scala--compile-command scala-compile-alt save-some-buffers #[257 "\301\302\206@\303#\207" [scala--compile-history read-shell-command "Compile command: " (scala--compile-history . 1)] 5 "\n\n(fn LAST)"] - locate-dominating-file compilation-start scala-compilation-mode #[257 "\301\302\303!!\304Q\207" [default-directory "*scala-compilation-" file-name-nondirectory directory-file-name "*"] 5 "\n\n(fn _)"] scala-compile-always-ask default-directory scala--compile-project] 7 (#$ . 2292) "P"]) (defalias 'scala--compile-ansi-color #[0 "\301d\"\207" [compilation-filter-start ansi-color-apply-on-region] 3]) (defvar scala-compilation-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [scala-compilation-mode-hook variable-documentation put "Hook run after entering scala-compilation mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp scala-compilation-mode-map definition-name scala-compilation-mode] 4) (defvar scala-compilation-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [scala-compilation-mode-abbrev-table scala-compilation-mode-map variable-documentation put purecopy "Keymap for `scala-compilation-mode'." boundp scala-compilation-mode-syntax-table definition-name scala-compilation-mode (lambda (#1=#:def-tmp-var) (defvar scala-compilation-mode-syntax-table #1#)) make-syntax-table "Syntax table for `scala-compilation-mode'." (lambda (#1#) (defvar scala-compilation-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `scala-compilation-mode'." derived-mode-parent compilation-mode] 5) #@550 Major mode derived from `compilation-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `scala-compilation-mode-map', `scala-compilation-mode-abbrev-table' and `scala-compilation-mode-syntax-table' which more-or-less shadow compilation-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `scala-compilation-mode-hook', as the final or penultimate step during initialization. \{scala-compilation-mode-map} (defalias 'scala-compilation-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R  =\204R\326 \325 C#\210\327 !\210\330\f!\210  \331\332\333\334\307$\210\306\335!\210!)\336\337!\207" [delay-mode-hooks major-mode mode-name scala-compilation-mode-map scala-compilation-mode-syntax-table scala-compilation-mode-abbrev-table make-local-variable t compilation-mode scala-compilation-mode "scala-compilation" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table add-hook compilation-filter-hook scala--compile-ansi-color nil compilation-error-regexp-alist run-mode-hooks scala-compilation-mode-hook local-abbrev-table scala-compilation-error-regexp-alist] 5 (#$ . 5004) nil]) (provide 'scala-compile)