[bpt/emacs.git] / lisp / progmodes / executable.el

;;; executable.el --- base functionality for executable interpreter scripts -*- byte-compile-dynamic: t -*-

;; Copyright (C) 1994, 1995, 1996, 2000, 2003, 2004 by Free Software Foundation, Inc.

;; Author: Daniel Pfeiffer <occitan@esperanto.org>
;; Keywords: languages, unix

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; executable.el is used by certain major modes to insert a suitable
;; #! line at the beginning of the file, if the file does not already
;; have one.

;; Unless it has a magic number, a Unix file with executable mode is passed to
;; a new instance of the running shell (or to a Bourne shell if a csh is
;; running and the file starts with `:').  Only a shell can start such a file,
;; exec() cannot, which is why it is important to have a magic number in every
;; executable script.  Such a magic number is made up by the characters `#!'
;; the filename of an interpreter (in COFF, ELF or somesuch format) and one
;; optional argument.

;; This library is for certain major modes like sh-, awk-, perl-, tcl- or
;; makefile-mode to insert or update a suitable #! line at the beginning of
;; the file, if the file does not already have one and the file is not a
;; default file of that interpreter (like .profile or makefile).  It also
;; makes the file executable if it wasn't, as soon as it's saved.

;; It also allows debugging scripts, with an adaptation of compile, as far
;; as interpreters give out meaningful error messages.

;; Modes that use this should nconc `executable-map' to the end of their own
;; keymap and `executable-font-lock-keywords' to the end of their own font
;; lock keywords.  Their mode-setting commands should call
;; `executable-set-magic'.

;;; Code:

(defgroup executable nil
  "Base functionality for executable interpreter scripts"
  :group 'processes)

;; This used to default to `other', but that doesn't seem to have any
;; significance.  fx 2000-02-11.
(defcustom executable-insert t		; 'other
  "*Non-nil means offer to add a magic number to a file.
This takes effect when you switch to certain major modes,
including Shell-script mode (`sh-mode').
When you type \\[executable-set-magic], it always offers to add or
update the magic number."
;;;   :type '(choice (const :tag "off" nil)
;;; 		 (const :tag "on" t)
;;; 		 symbol)
  :type 'boolean
  :group 'executable)


(defcustom executable-query 'function
  "*If non-nil, ask user before changing an existing magic number.
When this is `function', only ask when called non-interactively."
  :type '(choice (const :tag "Don't Ask" nil)
		 (const :tag "Ask when non-interactive" function)
		 (other :tag "Ask" t))
  :group 'executable)


(defcustom executable-magicless-file-regexp "/[Mm]akefile$\\|/\\.\\(z?profile\\|bash_profile\\|z?login\\|bash_login\\|z?logout\\|bash_logout\\|.+shrc\\|esrc\\|rcrc\\|[kz]shenv\\)$"
  "*On files with this kind of name no magic is inserted or changed."
  :type 'regexp
  :group 'executable)


(defcustom executable-prefix "#! "
  "*Interpreter magic number prefix inserted when there was no magic number."
  :type 'string
  :group 'executable)


(defcustom executable-chmod 73
  "*After saving, if the file is not executable, set this mode.
This mode passed to `set-file-modes' is taken absolutely when negative, or
relative to the files existing modes.  Do nothing if this is nil.
Typical values are 73 (+x) or -493 (rwxr-xr-x)."
  :type '(choice integer
		 (const nil))
  :group 'executable)


(defvar executable-command nil)

(defcustom executable-self-display "tail"
  "*Command you use with argument `+2' to make text files self-display.
Note that the like of `more' doesn't work too well under Emacs \\[shell]."
  :type 'string
  :group 'executable)


(defvar executable-font-lock-keywords
  '(("\\`#!.*/\\([^ \t\n]+\\)" 1 font-lock-keyword-face t))
  "*Rules for highlighting executable scripts' magic number.
This can be included in `font-lock-keywords' by modes that call `executable'.")


(defvar executable-error-regexp-alist
  '(;; /bin/xyz: syntax error at line 14: `(' unexpected
    ;; /bin/xyz[5]: syntax error at line 8 : ``' unmatched
    ("^\\(.*[^[/]\\)\\(\\[[0-9]+\\]\\)?: .* error .* line \\([0-9]+\\)" 1 3)
    ;; /bin/xyz[27]: ehco:  not found
    ("^\\(.*[^/]\\)\\[\\([0-9]+\\)\\]: .*: " 1 2)
    ;; /bin/xyz: syntax error near unexpected token `)'
    ;; /bin/xyz: /bin/xyz: line 2: `)'
    ("^\\(.*[^/]\\): [^0-9\n]+\n\\1: \\1: line \\([0-9]+\\):" 1 2)
    ;; /usr/bin/awk: syntax error at line 5 of file /bin/xyz
    (" error .* line \\([0-9]+\\) of file \\(.+\\)$" 2 1)
    ;; /usr/bin/awk: calling undefined function toto
    ;;  input record number 3, file awktestdata
    ;;  source line 4 of file /bin/xyz
    ("^[^ ].+\n\\( .+\n\\)* line \\([0-9]+\\) of file \\(.+\\)$" 3 2)
    ;; makefile:1: *** target pattern contains no `%'.  Stop.
    ("^\\(.+\\):\\([0-9]+\\): " 1 2))
  "Alist of regexps used to match script errors.
See `compilation-error-regexp-alist'.")

;; The C function openp slightly modified would do the trick fine
(defvaralias 'executable-binary-suffixes 'exec-suffixes)

;;;###autoload
(defun executable-command-find-posix-p (&optional program)
  "Check if PROGRAM handles arguments Posix-style.
If PROGRAM is non-nil, use that instead of \"find\"."
  ;;  Pick file to search from location we know
  (let* ((dir (file-truename data-directory))
         (file (car (directory-files dir nil "^[^.]"))))
    (with-temp-buffer
      (call-process (or program "find")
                    nil
                    (current-buffer)
                    nil
                    dir
                    "-name"
                    file
                    "-maxdepth"
                    "1")
        (goto-char (point-min))
        (if (search-forward file nil t)
            t))))

(defun executable-chmod ()
  "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."
  (and executable-chmod
       buffer-file-name
       (or (file-executable-p buffer-file-name)
	   (set-file-modes buffer-file-name
			   (if (< executable-chmod 0)
			       (- executable-chmod)
			     (logior executable-chmod
				     (file-modes buffer-file-name)))))))


;;;###autoload
(defun executable-interpret (command)
  "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."
  (interactive (list (read-string "Run script: "
				  (or executable-command
				      buffer-file-name))))
  (require 'compile)
  (save-some-buffers (not compilation-ask-about-save))
  (set (make-local-variable 'executable-command) command)
  (let ((compilation-error-regexp-alist executable-error-regexp-alist))
    (compilation-start command t (lambda (x) "*interpretation*"))))


;;;###autoload
(defun executable-set-magic (interpreter &optional argument
					 no-query-flag insert-flag)
  "Set this buffer's interpreter to INTERPRETER with optional ARGUMENT.
The variables `executable-magicless-file-regexp', `executable-prefix',
`executable-insert', `executable-query' and `executable-chmod' control
when and how magic numbers are inserted or replaced and scripts made
executable."
  (interactive
   (let* ((name (read-string "Name or file name of interpreter: "))
	  (arg (read-string (format "Argument for %s: " name))))
     (list name arg (eq executable-query 'function) t)))

  (setq interpreter (if (file-name-absolute-p interpreter)
			interpreter
		      (or (executable-find interpreter)
			  (error "Interpreter %s not recognized"
				 interpreter))))

  (setq argument (concat (if (string-match "\\`/:" interpreter)
			     (replace-match "" nil nil interpreter)
			   interpreter)
			 (and argument (string< "" argument) " ")
			 argument))

  (or buffer-read-only
      (if buffer-file-name
	  (string-match executable-magicless-file-regexp
			buffer-file-name))
      (not (or insert-flag executable-insert))
      (> (point-min) 1)
      (save-excursion
	(goto-char (point-min))
	(add-hook 'after-save-hook 'executable-chmod nil t)
	(if (looking-at "#![ \t]*\\(.*\\)$")
	    (and (goto-char (match-beginning 1))
		 ;; If the line ends in a space,
		 ;; don't offer to change it.
		 (not (= (char-after (1- (match-end 1))) ?\ ))
		 (not (string= argument
			       (buffer-substring (point) (match-end 1))))
		 (if (or (not executable-query) no-query-flag
			 (save-window-excursion
			   ;; Make buffer visible before question.
			   (switch-to-buffer (current-buffer))
			   (y-or-n-p (concat "Replace magic number by `"
					     executable-prefix argument "'? "))))
		     (progn
		       (replace-match argument t t nil 1)
		       (message "Magic number changed to `%s'"
				(concat executable-prefix argument)))))
	  (insert executable-prefix argument ?\n)
	  (message "Magic number changed to `%s'"
		   (concat executable-prefix argument)))))
    interpreter)


;;;###autoload
(defun executable-self-display ()
  "Turn a text file into a self-displaying Un*x command.
The magic number of such a command displays all lines but itself."
  (interactive)
  (if (eq this-command 'executable-self-display)
      (setq this-command 'executable-set-magic))
  (executable-set-magic executable-self-display "+2"))

;;;###autoload
(defun executable-make-buffer-file-executable-if-script-p ()
  "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."
  (and (>= (buffer-size) 2)
       (save-restriction
	 (widen)
	 (string= "#!" (buffer-substring (point-min) (+ 2 (point-min)))))
       (let* ((current-mode (file-modes (buffer-file-name)))
              (add-mode (logand ?\111 (default-file-modes))))
         (or (/= (logand ?\111 current-mode) 0)
             (zerop add-mode)
             (set-file-modes (buffer-file-name)
                             (logior current-mode add-mode))))))

(provide 'executable)

;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
;;; executable.el ends here
Commit	Line	Data
778e1d17	1	;;; executable.el --- base functionality for executable interpreter scripts -- byte-compile-dynamic: t --
b578f267	2
679be517	3	;; Copyright (C) 1994, 1995, 1996, 2000, 2003, 2004 by Free Software Foundation, Inc.
58a4ff04	4
3e910376	5	;; Author: Daniel Pfeiffer <occitan@esperanto.org>
58a4ff04 KH	6	;; Keywords: languages, unix
	7
	8	;; This file is part of GNU Emacs.
	9
	10	;; GNU Emacs is free software; you can redistribute it and/or modify
	11	;; it under the terms of the GNU General Public License as published by
	12	;; the Free Software Foundation; either version 2, or (at your option)
	13	;; any later version.
	14
	15	;; GNU Emacs is distributed in the hope that it will be useful,
	16	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;; GNU General Public License for more details.
	19
	20	;; You should have received a copy of the GNU General Public License
b578f267 EN	21	;; along with GNU Emacs; see the file COPYING. If not, write to the
	22	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	23	;; Boston, MA 02111-1307, USA.
58a4ff04 KH	24
58a4ff04 KH	25	;;; Commentary:
314001b5 RS	26
	27	;; executable.el is used by certain major modes to insert a suitable
	28	;; #! line at the beginning of the file, if the file does not already
	29	;; have one.
	30
252ed276 RS	31	;; Unless it has a magic number, a Unix file with executable mode is passed to
	32	;; a new instance of the running shell (or to a Bourne shell if a csh is
	33	;; running and the file starts with `:'). Only a shell can start such a file,
	34	;; exec() cannot, which is why it is important to have a magic number in every
	35	;; executable script. Such a magic number is made up by the characters `#!'
	36	;; the filename of an interpreter (in COFF, ELF or somesuch format) and one
	37	;; optional argument.
	38
	39	;; This library is for certain major modes like sh-, awk-, perl-, tcl- or
	40	;; makefile-mode to insert or update a suitable #! line at the beginning of
	41	;; the file, if the file does not already have one and the file is not a
	42	;; default file of that interpreter (like .profile or makefile). It also
	43	;; makes the file executable if it wasn't, as soon as it's saved.
	44
	45	;; It also allows debugging scripts, with an adaptation of compile, as far
	46	;; as interpreters give out meaningful error messages.
	47
	48	;; Modes that use this should nconc `executable-map' to the end of their own
	49	;; keymap and `executable-font-lock-keywords' to the end of their own font
	50	;; lock keywords. Their mode-setting commands should call
	51	;; `executable-set-magic'.
4a789a51	52
58a4ff04 KH	53	;;; Code:
58a4ff04 KH	54
bbf5eb28 RS	55	(defgroup executable nil
	56	"Base functionality for executable interpreter scripts"
	57	:group 'processes)
	58
778e1d17 DL	59	;; This used to default to `other', but that doesn't seem to have any
	60	;; significance. fx 2000-02-11.
	61	(defcustom executable-insert t ; 'other
8d4e82b5 RS	62	"*Non-nil means offer to add a magic number to a file.
	63	This takes effect when you switch to certain major modes,
	64	including Shell-script mode (`sh-mode').
	65	When you type \\[executable-set-magic], it always offers to add or
bbf5eb28	66	update the magic number."
778e1d17 DL	67	;;; :type '(choice (const :tag "off" nil)
	68	;;; (const :tag "on" t)
	69	;;; symbol)
	70	:type 'boolean
bbf5eb28	71	:group 'executable)
58a4ff04	72
58a4ff04	73
bbf5eb28 RS	74	(defcustom executable-query 'function
	75	"*If non-nil, ask user before changing an existing magic number.
	76	When this is `function', only ask when called non-interactively."
	77	:type '(choice (const :tag "Don't Ask" nil)
0c3ba9b2 AS	78	(const :tag "Ask when non-interactive" function)
0c3ba9b2 AS	79	(other :tag "Ask" t))
bbf5eb28	80	:group 'executable)
58a4ff04	81
58a4ff04	82
bbf5eb28 RS	83	(defcustom executable-magicless-file-regexp "/[Mm]akefile$\\\|/\\.\\(z?profile\\\|bash_profile\\\|z?login\\\|bash_login\\\|z?logout\\\|bash_logout\\\|.+shrc\\\|esrc\\\|rcrc\\\|[kz]shenv\\)$"
	84	"*On files with this kind of name no magic is inserted or changed."
	85	:type 'regexp
	86	:group 'executable)
58a4ff04	87
58a4ff04	88
bbf5eb28 RS	89	(defcustom executable-prefix "#! "
	90	"*Interpreter magic number prefix inserted when there was no magic number."
	91	:type 'string
	92	:group 'executable)
58a4ff04 KH	93
58a4ff04 KH	94
bbf5eb28	95	(defcustom executable-chmod 73
58a4ff04 KH	96	"*After saving, if the file is not executable, set this mode.
	97	This mode passed to `set-file-modes' is taken absolutely when negative, or
	98	relative to the files existing modes. Do nothing if this is nil.
bbf5eb28	99	Typical values are 73 (+x) or -493 (rwxr-xr-x)."
9cbf5df2 RS	100	:type '(choice integer
9cbf5df2 RS	101	(const nil))
bbf5eb28	102	:group 'executable)
58a4ff04 KH	103
	104
	105	(defvar executable-command nil)
	106
bbf5eb28	107	(defcustom executable-self-display "tail"
58a4ff04	108	"*Command you use with argument `+2' to make text files self-display.
778e1d17	109	Note that the like of `more' doesn't work too well under Emacs \\[shell]."
bbf5eb28 RS	110	:type 'string
bbf5eb28 RS	111	:group 'executable)
58a4ff04 KH	112
	113
	114	(defvar executable-font-lock-keywords
	115	'(("\\`#!.*/\\([^ \t\n]+\\)" 1 font-lock-keyword-face t))
	116	"*Rules for highlighting executable scripts' magic number.
	117	This can be included in `font-lock-keywords' by modes that call `executable'.")
	118
	119
	120	(defvar executable-error-regexp-alist
	121	'(;; /bin/xyz: syntax error at line 14: `(' unexpected
	122	;; /bin/xyz[5]: syntax error at line 8 : ``' unmatched
	123	("^\\(.[^[/]\\)\\(\\[[0-9]+\\]\\)?: . error .* line \\([0-9]+\\)" 1 3)
	124	;; /bin/xyz[27]: ehco: not found
	125	("^\\(.[^/]\\)\\[\\([0-9]+\\)\\]: .: " 1 2)
	126	;; /bin/xyz: syntax error near unexpected token `)'
	127	;; /bin/xyz: /bin/xyz: line 2: `)'
	128	("^\\(.*[^/]\\): [^0-9\n]+\n\\1: \\1: line \\([0-9]+\\):" 1 2)
	129	;; /usr/bin/awk: syntax error at line 5 of file /bin/xyz
	130	(" error .* line \\([0-9]+\\) of file \\(.+\\)$" 2 1)
	131	;; /usr/bin/awk: calling undefined function toto
	132	;; input record number 3, file awktestdata
	133	;; source line 4 of file /bin/xyz
	134	("^[^ ].+\n\\( .+\n\\)* line \\([0-9]+\\) of file \\(.+\\)$" 3 2)
	135	;; makefile:1: *** target pattern contains no `%'. Stop.
	136	("^\\(.+\\):\\([0-9]+\\): " 1 2))
	137	"Alist of regexps used to match script errors.
	138	See `compilation-error-regexp-alist'.")
	139
291c92b7	140	;; The C function openp slightly modified would do the trick fine
2d08a2d4	141	(defvaralias 'executable-binary-suffixes 'exec-suffixes)
778e1d17	142
14768716 RS	143	;;;###autoload
	144	(defun executable-command-find-posix-p (&optional program)
	145	"Check if PROGRAM handles arguments Posix-style.
679be517	146	If PROGRAM is non-nil, use that instead of \"find\"."
14768716	147	;; Pick file to search from location we know
c6190ba0 MR	148	(let* ((dir (file-truename data-directory))
c6190ba0 MR	149	(file (car (directory-files dir nil "^[^.]"))))
14768716 RS	150	(with-temp-buffer
	151	(call-process (or program "find")
	152	nil
	153	(current-buffer)
	154	nil
	155	dir
	156	"-name"
	157	file
	158	"-maxdepth"
	159	"1")
	160	(goto-char (point-min))
	161	(if (search-forward file nil t)
	162	t))))
	163
58a4ff04 KH	164	(defun executable-chmod ()
	165	"This gets called after saving a file to assure that it be executable.
	166	You can set the absolute or relative mode in variable `executable-chmod' for
	167	non-executable files."
	168	(and executable-chmod
	169	buffer-file-name
	170	(or (file-executable-p buffer-file-name)
	171	(set-file-modes buffer-file-name
	172	(if (< executable-chmod 0)
	173	(- executable-chmod)
	174	(logior executable-chmod
	175	(file-modes buffer-file-name)))))))
	176
	177
78f617dd	178	;;;###autoload
58a4ff04 KH	179	(defun executable-interpret (command)
58a4ff04 KH	180	"Run script with user-specified args, and collect output in a buffer.
78f617dd DP	181	While script runs asynchronously, you can use the \\[next-error]
	182	command to find the next error. The buffer is also in `comint-mode' and
	183	`compilation-shell-minor-mode', so that you can answer any prompts."
58a4ff04 KH	184	(interactive (list (read-string "Run script: "
	185	(or executable-command
	186	buffer-file-name))))
	187	(require 'compile)
	188	(save-some-buffers (not compilation-ask-about-save))
78f617dd DP	189	(set (make-local-variable 'executable-command) command)
	190	(let ((compilation-error-regexp-alist executable-error-regexp-alist))
	191	(compilation-start command t (lambda (x) "interpretation"))))
58a4ff04 KH	192
	193
	194
	195	;;;###autoload
291c92b7 KH	196	(defun executable-set-magic (interpreter &optional argument
291c92b7 KH	197	no-query-flag insert-flag)
58a4ff04 KH	198	"Set this buffer's interpreter to INTERPRETER with optional ARGUMENT.
	199	The variables `executable-magicless-file-regexp', `executable-prefix',
	200	`executable-insert', `executable-query' and `executable-chmod' control
	201	when and how magic numbers are inserted or replaced and scripts made
	202	executable."
291c92b7 KH	203	(interactive
	204	(let* ((name (read-string "Name or file name of interpreter: "))
	205	(arg (read-string (format "Argument for %s: " name))))
	206	(list name arg (eq executable-query 'function) t)))
6c233cc0	207
58a4ff04 KH	208	(setq interpreter (if (file-name-absolute-p interpreter)
58a4ff04 KH	209	interpreter
291c92b7	210	(or (executable-find interpreter)
6c233cc0 GM	211	(error "Interpreter %s not recognized"
	212	interpreter))))
	213
	214	(setq argument (concat (if (string-match "\\`/:" interpreter)
	215	(replace-match "" nil nil interpreter)
	216	interpreter)
58a4ff04 KH	217	(and argument (string< "" argument) " ")
58a4ff04 KH	218	argument))
6c233cc0	219
58a4ff04 KH	220	(or buffer-read-only
	221	(if buffer-file-name
	222	(string-match executable-magicless-file-regexp
	223	buffer-file-name))
291c92b7	224	(not (or insert-flag executable-insert))
58a4ff04	225	(> (point-min) 1)
291c92b7	226	(save-excursion
1d88c1b3 SM	227	(goto-char (point-min))
	228	(add-hook 'after-save-hook 'executable-chmod nil t)
	229	(if (looking-at "#![ \t]\\(.\\)$")
	230	(and (goto-char (match-beginning 1))
	231	;; If the line ends in a space,
	232	;; don't offer to change it.
	233	(not (= (char-after (1- (match-end 1))) ?\ ))
	234	(not (string= argument
	235	(buffer-substring (point) (match-end 1))))
	236	(if (or (not executable-query) no-query-flag
	237	(save-window-excursion
	238	;; Make buffer visible before question.
	239	(switch-to-buffer (current-buffer))
	240	(y-or-n-p (concat "Replace magic number by `"
	241	executable-prefix argument "'? "))))
	242	(progn
	243	(replace-match argument t t nil 1)
	244	(message "Magic number changed to `%s'"
	245	(concat executable-prefix argument)))))
	246	(insert executable-prefix argument ?\n)
	247	(message "Magic number changed to `%s'"
	248	(concat executable-prefix argument)))))
6c233cc0	249	interpreter)
58a4ff04 KH	250
	251
	252
	253	;;;###autoload
	254	(defun executable-self-display ()
	255	"Turn a text file into a self-displaying Un*x command.
	256	The magic number of such a command displays all lines but itself."
	257	(interactive)
	258	(if (eq this-command 'executable-self-display)
	259	(setq this-command 'executable-set-magic))
	260	(executable-set-magic executable-self-display "+2"))
	261
778e1d17	262	;;;###autoload
cc7e1d18	263	(defun executable-make-buffer-file-executable-if-script-p ()
778e1d17 DL	264	"Make file executable according to umask if not already executable.
	265	If file already has any execute bits set at all, do not change existing
	266	file modes."
fd5f61d3 GM	267	(and (>= (buffer-size) 2)
fd5f61d3 GM	268	(save-restriction
cc7e1d18	269	(widen)
1d88c1b3	270	(string= "#!" (buffer-substring (point-min) (+ 2 (point-min)))))
778e1d17 DL	271	(let* ((current-mode (file-modes (buffer-file-name)))
	272	(add-mode (logand ?\111 (default-file-modes))))
	273	(or (/= (logand ?\111 current-mode) 0)
	274	(zerop add-mode)
	275	(set-file-modes (buffer-file-name)
	276	(logior current-mode add-mode))))))
58a4ff04 KH	277
	278	(provide 'executable)
	279
ba47dcb2	280	;; arch-tag: 58458d1c-d9db-45ec-942b-8bbb1d5e319d
e8af40ee	281	;;; executable.el ends here