;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\210\306\326\310\311\327DD\330\331\332\314\333&\210\306\334\310\311\335DD\336\331\332\314\315&\210\306\337\310\311\340DD\341\314\342%\207" [custom-declare-group executable nil "Base functionality for executable interpreter scripts." :group processes custom-declare-variable executable-insert funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means offer to add a magic number to a file.\nThis takes effect when you switch to certain major modes,\nincluding Shell-script mode (`sh-mode').\nWhen you type \\[executable-set-magic], it always offers to add or\nupdate the magic number." :type boolean executable-query #[0 "\300\207" [function] 1 #1#] "If non-nil, ask user before changing an existing magic number.\nWhen this is `function', only ask when called non-interactively." (choice (const :tag "Don't Ask" nil) (const :tag "Ask when non-interactive" function) (other :tag "Ask" t)) executable-magicless-file-regexp #[0 "\300\207" ["/[Mm]akefile$\\|/\\.\\(z?profile\\|bash_profile\\|z?login\\|bash_login\\|z?logout\\|bash_logout\\|.+shrc\\|esrc\\|rcrc\\|[kz]shenv\\)$"] 1 #1#] "On files with this kind of name no magic is inserted or changed." regexp executable-prefix #[0 "\300\207" ["#!"] 1 #1#] "Interpreter magic number prefix inserted when there was no magic number.\nUse of `executable-prefix-env' is preferable to this option." :version "26.1" string executable-prefix-env #[0 "\300\207" [nil] 1 #1#] "If non-nil, use \"/usr/bin/env\" in interpreter magic number.\nIf this variable is non-nil, the interpreter magic number inserted\nby `executable-set-magic' will be \"#!/usr/bin/env INTERPRETER\",\notherwise it will be \"#!/path/to/INTERPRETER\"." executable-chmod #[0 "\300\207" [73] 1 #1#] "After saving, if the file is not executable, set this mode.\nThis mode passed to `set-file-modes' is taken absolutely when negative, or\nrelative to the files existing modes.  Do nothing if this is nil.\nTypical values are 73 (+x) or -493 (rwxr-xr-x)." (choice integer (const nil))] 8)
(defvar executable-command nil)
(byte-code "\300\301\302\303\304DD\305\306\307%\210\310\301\311\312\313$\207" [custom-declare-variable executable-self-display funcall function #[0 "\300\207" ["tail"] 1 ""] "Command you use with argument `-n+2' to make text files self-display.\nNote that the like of `more' doesn't work too well under Emacs \\[shell]." :type string make-obsolete-variable nil "25.1" set] 6)
#@136 Rules for highlighting executable scripts' magic number.
This can be included in `font-lock-keywords' by modes that call `executable'.
(defvar executable-font-lock-keywords '(("\\`#!.*/\\([^ 	\n]+\\)" 1 font-lock-keyword-face t)) (#$ . 2644))
#@85 Alist of regexps used to match script errors.
See `compilation-error-regexp-alist'.
(defvar executable-error-regexp-alist '(("^\\(.*[^[/]\\)\\(\\[[0-9]+\\]\\)?: .* error .* line \\([0-9]+\\)" 1 3) ("^\\(.*[^/]\\)\\[\\([0-9]+\\)\\]: .*: " 1 2) ("^\\(.*[^/]\\): [^0-9\n]+\n\\1: \\1: line \\([0-9]+\\):" 1 2) (" error .* line \\([0-9]+\\) of file \\(.+\\)$" 2 1) ("^[^ ].+\n\\( .+\n\\)* line \\([0-9]+\\) of file \\(.+\\)$" 3 2) ("^\\(.+\\):\\([0-9]+\\): " 1 2)) (#$ . 2893))
(defvaralias 'executable-binary-suffixes 'exec-suffixes)
#@124 Check if PROGRAM handles arguments Posix-style.
If PROGRAM is non-nil, use that instead of "find".

(fn &optional PROGRAM)
(defalias 'executable-command-find-posix-p #[256 "\301!\302
\303\304#@\305\306\307\"r\211q\210\310\311\"\216\312\206\313\303p\303\314\315\316&	\210eb\210\317\303\307#\2055\307*\207" [data-directory file-truename directory-files nil "\\`[^.]" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "find" "-name" "-maxdepth" "1" search-forward] 14 (#$ . 3430)])
#@170 This gets called after saving a file to assure that it be executable.
You can set the absolute or relative mode in variable `executable-chmod' for
non-executable files.
(defalias 'executable-chmod #[0 "\205\"	\205\"\302	!\206\"\303	\304W\203[\202!\305\306	!\"\"\207" [executable-chmod buffer-file-name file-executable-p set-file-modes 0 logior file-modes] 6 (#$ . 4002)])
#@289 Run script with user-specified args, and collect output in a buffer.
While script runs asynchronously, you can use the \[next-error]
command to find the next error.  The buffer is also in `comint-mode' and
`compilation-shell-minor-mode', so that you can answer any prompts.

(fn COMMAND)
(defalias 'executable-interpret #[257 "\304\305!\210\306?!\210\307\301!\210\211\n\310
\311\312#)\207" [compilation-ask-about-save executable-command executable-error-regexp-alist compilation-error-regexp-alist require compile save-some-buffers make-local-variable compilation-start t #[257 "\300\207" ["*interpretation*"] 2 "*interpretation*\n\n(fn X)"]] 5 (#$ . 4391) (byte-code "\302\303\206	\"C\207" [executable-command buffer-file-name read-string "Run script: "] 3)])
#@360 Set this buffer's interpreter to INTERPRETER with optional ARGUMENT.
The variables `executable-magicless-file-regexp', `executable-prefix-env',
`executable-insert', `executable-query' and `executable-chmod' control
when and how magic numbers are inserted or replaced and scripts made
executable.

(fn INTERPRETER &optional ARGUMENT NO-QUERY-FLAG INSERT-FLAG)
(defalias 'executable-set-magic #[1025 "\306!\203\n\202\307!\206\310\311\"\262\312\313\"\203'\314\315\316\211$\202(\2053\315\231\2053\317Q\262\312\320\"\203L	\203T\321\322!P\262\202T\323\316OP\262\n\204\327\203c\312\f\"\204\327\211\204k
\203\327e\324V\204\327\212eb\210\325\326\327\316\330$\210\331\332!\203\313\324\224b\203\326\324\225Sf\333U\204\326`\324\225{\230\204\326'\203\273
\204\273\334 \335\336\"\216\337p!\210\340\341\342\"!)\262
\203\326\314\330\211\316\324%\210\343\344\"\210\202\326\345\346\261\210\343\344\"\210)\207" [executable-prefix executable-prefix-env buffer-read-only buffer-file-name executable-magicless-file-regexp executable-insert file-name-absolute-p executable-find error "Interpreter %s not recognized" string-match "\\`/:" replace-match "" nil " " "#!\\([ 	]*/usr/bin/env[ 	]*\\)?$" "/usr/bin/env " file-name-nondirectory 2 1 add-hook after-save-hook executable-chmod t looking-at "#![ 	]*\\(.*\\)$" 32 current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer y-or-n-p format-message "Replace magic number by `#!%s'? " message "Magic number changed to `#!%s'" "#!" 10 executable-query] 10 (#$ . 5165) (byte-code "\301\302!\301\303\304\"!

\305=\306F\207" [executable-query read-string "Name or file name of interpreter: " format "Argument for %s: " function t] 6)])
#@121 Turn a text file into a self-displaying Un*x command.
The magic number of such a command displays all lines but itself.
(defalias 'executable-self-display #[0 "\301=\203\302\302	\303\"\207" [this-command executable-self-display executable-set-magic "-n+2"] 3 (#$ . 6944) nil])
(make-obsolete 'executable-self-display nil "25.1")
#@152 Make file executable according to umask if not already executable.
If file already has any execute bits set at all, do not change existing
file modes.
(defalias 'executable-make-buffer-file-executable-if-script-p #[0 "\300 \301Y\205F\214~\210e\301e\\{\302\230)\205F\3031>\304\305 !\306\307\310 \"\306\307\"\311U?\206:\211\311U\206:\312\305 \313\"\"\266\2020\207\314\315\"\210\316\262
\207" [buffer-size 2 "#!" (debug error) file-modes buffer-file-name logand 73 default-file-modes 0 set-file-modes logior message "Unable to make file executable: %s" nil] 7 (#$ . 7284)])
(provide 'executable)