diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 31a4fbaef4d..7b949134c6c 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -460,6 +460,7 @@ This is buffer-local in every such buffer.") | |||
| 460 | (define-key map "\C-c+" 'sh-add) | 460 | (define-key map "\C-c+" 'sh-add) |
| 461 | (define-key map "\C-\M-x" 'sh-execute-region) | 461 | (define-key map "\C-\M-x" 'sh-execute-region) |
| 462 | (define-key map "\C-c\C-x" 'executable-interpret) | 462 | (define-key map "\C-c\C-x" 'executable-interpret) |
| 463 | ;; FIXME: Use post-self-insert-hook. | ||
| 463 | (define-key map "<" 'sh-maybe-here-document) | 464 | (define-key map "<" 'sh-maybe-here-document) |
| 464 | (define-key map "(" 'skeleton-pair-insert-maybe) | 465 | (define-key map "(" 'skeleton-pair-insert-maybe) |
| 465 | (define-key map "{" 'skeleton-pair-insert-maybe) | 466 | (define-key map "{" 'skeleton-pair-insert-maybe) |
| @@ -3659,6 +3660,7 @@ The document is bounded by `sh-here-document-word'." | |||
| 3659 | (save-excursion | 3660 | (save-excursion |
| 3660 | (backward-char 2) | 3661 | (backward-char 2) |
| 3661 | (sh-quoted-p)) | 3662 | (sh-quoted-p)) |
| 3663 | (nth 8 (syntax-ppss)) | ||
| 3662 | (let ((tabs (if (string-match "\\`-" sh-here-document-word) | 3664 | (let ((tabs (if (string-match "\\`-" sh-here-document-word) |
| 3663 | (make-string (/ (current-indentation) tab-width) ?\t) | 3665 | (make-string (/ (current-indentation) tab-width) ?\t) |
| 3664 | "")) | 3666 | "")) |