1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index 3711ec4f67a..3e92700da6b 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -21,10 +21,13 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 ;;; Commentary:
+;; This is support code for the likes of sh-, awk-, perl-, tcl- or
-;; Provide or modify interpreter magic number for buffer, and make file
+;; makefile-mode.  Those mode-setting commands can call the like of
-;; executable if it isn't.  Support code for the likes of sh-, awk-, perl-,
+;; `(executable-set-magic "sh")' or `(executable-set-magic "perl" "-f")'.
-;; tcl- or makefile-mode.
+;; Unless the file name matches `executable-magicless-file-regexp' this will
+;; search $PATH if the given interpreter isn't absolute, and then insert a
+;; first line like `#! /bin/sh' or `#! /usr/local/bin/perl -f' and the file
+;; will be made executable as soon as it's saved if it wasn't.
 ;; Would someone please explain clearly what this is to be used for? -- rms.

diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el index 3711ec4f67a..3e92700da6b 100644 --- a/lisp/progmodes/executable.el +++ b/lisp/progmodes/executable.el
@@ -21,10 +21,13 @@
21	;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.	21	;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
22		22
23	;;; Commentary:	23	;;; Commentary:
24		24	;; This is support code for the likes of sh-, awk-, perl-, tcl- or
25	;; Provide or modify interpreter magic number for buffer, and make file	25	;; makefile-mode. Those mode-setting commands can call the like of
26	;; executable if it isn't. Support code for the likes of sh-, awk-, perl-,	26	;; `(executable-set-magic "sh")' or `(executable-set-magic "perl" "-f")'.
27	;; tcl- or makefile-mode.	27	;; Unless the file name matches `executable-magicless-file-regexp' this will
		28	;; search $PATH if the given interpreter isn't absolute, and then insert a
		29	;; first line like `#! /bin/sh' or `#! /usr/local/bin/perl -f' and the file
		30	;; will be made executable as soon as it's saved if it wasn't.
28		31
29	;; Would someone please explain clearly what this is to be used for? -- rms.	32	;; Would someone please explain clearly what this is to be used for? -- rms.
30		33