From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Jul 1994 16:28:00 +0000 (+0000)
Subject: (sh-set-shell): Obey sh-query-for-magic in all cases.
X-Git-Tag: emacs-19.34~7747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07ac942ac659063e3d95e2079e4d677b8474377e;p=emacs.git

(sh-set-shell): Obey sh-query-for-magic in all cases.

(sh-mode): Don't move point permanently.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index b0fd04d4a13..2a2cf1756ce 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -402,12 +402,13 @@ The following commands are available, based on the current shell's syntax:
 	font-lock-keywords-case-fold-search nil
 	pair-alist '((?` _ ?`))
 	pair-filter 'sh-quoted-p)
-  ; parse or insert magic number for exec()
-  (goto-char (point-min))
-  (sh-set-shell
-   (if (looking-at "#![\t ]*\\([^\t\n ]+\\)")
-       (buffer-substring (match-beginning 1) (match-end 1))
-     sh-shell-path))
+  ;; parse or insert magic number for exec
+  (save-excursion
+    (goto-char (point-min))
+    (sh-set-shell
+     (if (looking-at "#![\t ]*\\([^\t\n ]+\\)")
+	 (buffer-substring (match-beginning 1) (match-end 1))
+       sh-shell-path)))
   ;; find-file is set by `normal-mode' when called by `after-find-file'
   (and (boundp 'find-file) find-file
        (or (eq sh-find-file-modifies t)
@@ -852,7 +853,10 @@ Calls the value of `sh-set-shell-hook' if set."
 			     (buffer-substring (point-min) (point))))
 		  (not (delete-region (point) (progn (end-of-line) (point))))
 		  (insert shell))
-	   (insert "#! " shell ?\n))))
+	   (if (if sh-query-for-magic
+		   (y-or-n-p (concat "Add ``#! " shell "''? "))
+		 t)
+	       (insert "#! " shell ?\n)))))
   (run-hooks 'sh-set-shell-hook))