diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 17:34:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 17:34:51 -0500 |
| commit | f619ad4ca2ce943d53589469c010e451afab97dd (patch) | |
| tree | e1b71f79518372ecab4c677ae948504450d8bf5d /lisp/progmodes/sh-script.el | |
| parent | a647cb26b695a542e3a546104afdf4c7c47eb061 (diff) | |
| parent | 9f8370e63f65f76887b319ab6a0368d4a332777c (diff) | |
| download | emacs-f619ad4ca2ce943d53589469c010e451afab97dd.tar.gz emacs-f619ad4ca2ce943d53589469c010e451afab97dd.tar.bz2 emacs-f619ad4ca2ce943d53589469c010e451afab97dd.zip | |
Merge from trunk
Diffstat (limited to 'lisp/progmodes/sh-script.el')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 900072fe356..7b84cc89d08 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -969,7 +969,8 @@ Point is at the beginning of the next line." (defun sh-syntax-propertize-here-doc (end) (let ((ppss (syntax-ppss))) (when (eq t (nth 3 ppss)) - (let ((key (get-text-property (nth 8 ppss) 'sh-here-doc-marker))) + (let ((key (get-text-property (nth 8 ppss) 'sh-here-doc-marker)) + (case-fold-search nil)) (when (re-search-forward (concat "^\\([ \t]*\\)" (regexp-quote key) "\\(\n\\)") end 'move) |