lisp/progmodes/sh-script.el

90 ;;    This is the deluxe function!  It "learns" the whole buffer (use
327      . ((nil "^\\s-*\\(function\\s-+\\)?\\([A-Za-z_][A-Za-z_0-9]+\\)\\s-*()" 2))))
328   "*Alist of regular expressions for recognizing shell function definitions.
374 ;;	"function" 'sh-function)
381 ;;	"function" 'sh-function)
385 ;;	"function" 'sh-function
445     (define-key map "\C-c(" 'sh-function)
466     (define-key map "<" 'sh-maybe-here-document)
505   :type '(repeat function)
570 (defcustom sh-here-document-word "EOF"
576 tabs inside the here document should be ignored.  In this case,
577 Emacs indents the initial body and end of the here document with
584 removed when closing the here document."
696 	    "function")
816   "Face to show a here-document"
855 	("^\\(\\sw+\\)[ \t]*(" 1 font-lock-function-name-face)
856 	("\\<\\(function\\)\\>[ \t]*\\(\\sw+\\)?"
857 	  (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
949 INDENTED is non-nil if the here document's content (and the EOF mark) can
955     ;; font-lock keywords to detect the end of this here document.
1102 (defun sh-font-lock-syntactic-face-function (state)
1191   "Enable lots of debug messages - if function `sh-debug' is enabled.")
1312 For an open paren after a function, `sh-indent-after-function' is used."
1316 (defcustom sh-indent-after-function '+
1317   "*How much to indent after a function line."
1426 \\[sh-function]	 function definition
1451 \\[sh-maybe-here-document]	 Without prefix, following an unquoted < inserts here document.
1476   (make-local-variable 'skeleton-pair-filter-function)
1480   (make-local-variable 'skeleton-filter-function)
1505 	  (font-lock-syntactic-face-function
1506 	   . sh-font-lock-syntactic-face-function))
1508 	skeleton-pair-filter-function 'sh-quoted-p
1511 	skeleton-filter-function 'sh-feature
1645 When this function is called noninteractively, INSERT-FLAG (the third
1656 		     (eq executable-query 'function)
1683   (make-local-variable 'indent-line-function)
1694 	;; sh-mode has already made indent-line-function local
1696 	(setq indent-line-function 'sh-indent-line)
1701     (setq indent-line-function 'sh-basic-indent-line))
1709 (defun sh-feature (alist &optional function)
1719     we call the function `sh-append' with the rest of the list as
1722     in ALIST to allow the function called to define the value for
1754 	  (if function
1756 		    val (funcall function val)))
1780 ;;			      (symbol-function atom))))
2019 		  (looking-at "function\\b")
2022 	  (list '(+ sh-indent-after-function))
2158       ;;(This function never returns just t.)
2352 ;; Also, we want to treat a whole "here document" as one big line,
2357 ;; - if this is in a here-document, go to the beginning of it
2938 function completes.  The function is abnormal because it is called
3387 This function is designed for use as the \"completion table\",
3435 (define-skeleton sh-function
3436   "Insert a function definition.  See `sh-feature'."
3440 	 "function " str " {" \n
3671 (defun sh-maybe-here-document (arg)
3672   "Insert self.  Without prefix, following unquoted `<' inserts here document.
3673 The document is bounded by `sh-here-document-word'."
3681       (let ((tabs (if (string-match "\\`-" sh-here-document-word)
3685                                             sh-here-document-word)))
3686 	(insert sh-here-document-word)
3746 This function does not modify the last line of the region if the region ends