From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 09:48:37 +0000 (+0000)
Subject: (interpreter-mode-alist): Add wishx, tclsh.
X-Git-Tag: emacs-19.34~8191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3998da17a69530b9b59cf1d1d86395a2eb7ad5d;p=emacs.git

(interpreter-mode-alist): Add wishx, tclsh.
Delete form, scope, shell.
(set-auto-mode): Don't get confused by args after #! shell name.
---

diff --git a/lisp/files.el b/lisp/files.el
index b64bb047af4..da51f543149 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -847,11 +847,10 @@ again for another match.")
 
 (defconst interpreter-mode-alist
   '(("perl" . perl-mode)
-    ("scope" . tcl-mode)
     ("wish" . tcl-mode)
-    ("shell" . tcl-mode)
-    ("form" . tcl-mode)
+    ("wishx" . tcl-mode)
     ("tcl" . tcl-mode)
+    ("tclsh" . tcl-mode)
     ("awk" . awk-mode)
     ("gawk" . awk-mode)
     ("scm" . scheme-mode))
@@ -871,10 +870,13 @@ If it matches, mode MODE is selected.")
 
 (defun set-auto-mode ()
   "Select major mode appropriate for current buffer.
-This checks for a -*- mode tag in the buffer's text, or
-compares the filename against the entries in `auto-mode-alist'.  It does
-not check for the \"mode:\" local variable in the Local Variables
-section of the file; for that, use `hack-local-variables'.
+This checks for a -*- mode tag in the buffer's text,
+compares the filename against the entries in `auto-mode-alist',
+or checks the interpreter that runs this file against
+`interpreter-mode-alist'.
+
+It does not check for the `mode:' local variable in the
+Local Variables section of the file; for that, use `hack-local-variables'.
 
 If `enable-local-variables' is nil, this function does not check for a
 -*- mode tag."
@@ -958,11 +960,9 @@ If `enable-local-variables' is nil, this function does not check for a
 		  (let ((interpreter
 			 (save-excursion
 			   (goto-char (point-min))
-			   (if (looking-at "#! *")
-			       (progn
-				 (goto-char (match-end 0))
-				 (buffer-substring (point)
-						   (progn (end-of-line) (point))))
+			   (if (looking-at "#! *\\([^ \t\n]+\\)")
+			       (buffer-substring (match-beginning 1)
+						 (match-end 1))
 			     "")))
 			elt)
 		    ;; Map interpreter name to a mode.