From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 15 Jul 1996 20:17:53 +0000 (+0000)
Subject: (sh-mode): Call sh-set-shell only for a writable
X-Git-Tag: emacs-19.34~185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c14c7a05113ebc6ae6da859c680becf8cdd7b754;p=emacs.git

(sh-mode): Call sh-set-shell only for a writable
empty buffer.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 51923ee2795..fbcdf5c8dbc 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -662,10 +662,9 @@ with your script for an edit-interpret-debug cycle."
     ;; parse or insert magic number for exec() and set all variables depending
     ;; on the shell thus determined
     (goto-char (point-min))
-    (sh-set-shell
-     (if (looking-at "#![\t ]*\\([^\t\n ]+\\)")
-	 (match-string 1)
-       sh-shell-file)))
+    (and (zerop (buffer-size))
+	 (not buffer-read-only)
+	 (sh-set-shell sh-shell-file)))
   (run-hooks 'sh-mode-hook))
 ;;;###autoload
 (defalias 'shell-script-mode 'sh-mode)