comparison lisp/progmodes/sh-script.el @ 59251:84ede35ffeb4

(sh-require-final-newline): Alist value now controls whether to use mode-require-final-newline. (sh-set-shell): Implement that new meaning.

59250:54d81a8baaa6

  :group 'sh-script)


(defcustom sh-require-final-newline
  '((csh . t)
    (pdksh . t)
    (rc . require-final-newline)
    (sh . require-final-newline))
  "*Value of `require-final-newline' in Shell-Script mode buffers.
See `sh-feature'."
  :type '(repeat (cons (symbol :tag "Shell")
		       (choice (const :tag "require" t)
			       (sexp :format "Evaluate: %v"))))
  :group 'sh-script)

  (if insert-flag
      (setq sh-shell-file
	    (executable-set-magic shell (sh-feature sh-shell-arg)
				  no-query-flag insert-flag)))
  (let ((tem (sh-feature sh-require-final-newline)))
    (unless (eq tem 'require-final-newline)
      (setq require-final-newline tem)))
  (setq
	comment-start-skip "#+[\t ]*"
	local-abbrev-table sh-mode-abbrev-table
	mode-line-process (format "[%s]" sh-shell)
	sh-shell-variables nil

59251:84ede35ffeb4

  :group 'sh-script)


(defcustom sh-require-final-newline
  '((csh . t)
    (pdksh . t))
  "*Value of `require-final-newline' in Shell-Script mode buffers.
\(SHELL . t) means use the value of `mode-require-final-newline' for SHELL.
See `sh-feature'."
  :type '(repeat (cons (symbol :tag "Shell")
		       (choice (const :tag "require" t)
			       (sexp :format "Evaluate: %v"))))
  :group 'sh-script)

  (if insert-flag
      (setq sh-shell-file
	    (executable-set-magic shell (sh-feature sh-shell-arg)
				  no-query-flag insert-flag)))
  (let ((tem (sh-feature sh-require-final-newline)))
    (if (eq tem t)
	(setq require-final-newline mode-require-final-newline)))
  (setq
	comment-start-skip "#+[\t ]*"
	local-abbrev-table sh-mode-abbrev-table
	mode-line-process (format "[%s]" sh-shell)
	sh-shell-variables nil