# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 836009856 0
# Node ID 0ce70615b9e944c9f40f1fdd0fdcaf57d682661f
# Parent  8d8bf85d356a3442f20c3fee72877f8f02c71315
(executable-set-magic): Add space at end of line
if user says no to adding the shell's usual arguments.
Don't clear the buffer's modified-flag.

diff -r 8d8bf85d356a -r 0ce70615b9e9 lisp/progmodes/executable.el
--- a/lisp/progmodes/executable.el	Sat Jun 29 00:29:17 1996 +0000
+++ b/lisp/progmodes/executable.el	Sat Jun 29 00:57:36 1996 +0000
@@ -197,24 +197,32 @@
 	  (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))))
-		   (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))))
+		   (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)))
+		     ;; Add a space at the end of the line
+		     ;; so we do not ask again about changing it.
+		     (end-of-line)
+		     (insert " ")))
 	    (insert executable-prefix argument ?\n)
 	    (message "Magic number changed to `%s'"
 		     (concat executable-prefix argument)))
-	  (or insert-flag
-	      (eq executable-insert t)
-	      (set-buffer-modified-p buffer-modified-p)))))
+;;;	  (or insert-flag
+;;;	      (eq executable-insert t)
+;;;	      (set-buffer-modified-p buffer-modified-p))
+	  )))
   interpreter)