[Emacs-diffs] Changes to emacs/lisp/progmodes/sh-script.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/sh-script.el
diff -c emacs/lisp/progmodes/sh-script.el:1.109 
emacs/lisp/progmodes/sh-script.el:1.110
*** emacs/lisp/progmodes/sh-script.el:1.109     Mon Dec 31 15:42:51 2001
--- emacs/lisp/progmodes/sh-script.el   Tue Jan 22 16:05:13 2002
***************
*** 1442,1449 ****
  
  (defun sh-set-shell (shell &optional no-query-flag insert-flag)
    "Set this buffer's shell to SHELL (a string).
! Makes this script executable via `executable-set-magic', and sets up the
! proper starting #!-line, if INSERT-FLAG is non-nil.
  Calls the value of `sh-set-shell-hook' if set."
    (interactive (list (completing-read "Name or path of shell: "
                                      interpreter-mode-alist
--- 1442,1456 ----
  
  (defun sh-set-shell (shell &optional no-query-flag insert-flag)
    "Set this buffer's shell to SHELL (a string).
! When used interactively, insert the proper starting #!-line,
! and make the visited file executable via `executable-set-magic',
! perhaps querying depending on the value of `executable-query'.
! 
! When this function is called noninteractively, INSERT-FLAG (the third
! argument) controls whether to insert a #!-line and think about making
! the visited file executable, and NO-QUERY-FLAG (the second argument)
! controls whether to query about making the visited file executable.
! 
  Calls the value of `sh-set-shell-hook' if set."
    (interactive (list (completing-read "Name or path of shell: "
                                      interpreter-mode-alist