From: Lawrence Mitchell <wence@gmx.li>
Date: Fri, 18 Feb 2011 21:46:08 +0000 (-0500)
Subject: * lisp/progmodes/sh-script.el (sh-syntax-propertize-here-doc):
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e697fcfc0121d210c7acb16e3306cf7c552cf633;p=emacs.git

* lisp/progmodes/sh-script.el (sh-syntax-propertize-here-doc):
Bind case-fold-search to nil when looking for end of here-doc.

Fixes: debbugs:8053
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 367e685dd1d..0f6fac51a95 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2011-02-18  Lawrence Mitchell  <wence@gmx.li>
+
+	* progmodes/sh-script.el (sh-syntax-propertize-here-doc): (bug#8053)
+	Bind case-fold-search to nil when looking for end of here-doc.
+
 2011-02-18  Eli Zaretskii  <eliz@gnu.org>
 
-	* image-mode.el (image-toggle-display-image): Set
-	find-file-literally non-nil in buffers visiting binary image
+	* image-mode.el (image-toggle-display-image):
+	Set find-file-literally non-nil in buffers visiting binary image
 	files.  (Bug#8047)
 
 2011-02-18  Stefan Monnier  <monnier@iro.umontreal.ca>
@@ -111,8 +116,8 @@
 	allout-abbreviate-flattened-numbering.
 	(allout-mode-p): Include among autoloads, for use by other modes
 	with impunity.
-	(allout-listify-exposed): Use
-	allout-flattened-numbering-abbreviation.
+	(allout-listify-exposed):
+	Use allout-flattened-numbering-abbreviation.
 	(allout-encrypt-string): Use set-buffer-multibyte directly.
 	(allout-set-buffer-multibyte): Remove.
 
@@ -189,8 +194,8 @@
 
 	* vc/vc-bzr.el (vc-bzr-log-view-mode): Truncate lines in root log.
 
-	* vc/log-view.el (log-view-mode-menu): Add
-	log-view-toggle-entry-display.
+	* vc/log-view.el (log-view-mode-menu):
+	Add log-view-toggle-entry-display.
 
 2011-02-14  Glenn Morris  <rgm@gnu.org>
 
@@ -215,8 +220,8 @@
 	* progmodes/cc-fonts.el (c-font-lock-declarations): Remove a
 	narrow-to-region call that cuts context off the end (Bug#7722).
 
-	* progmodes/cc-engine.el (c-forward-<>-arglist-recur): Refactor
-	nested if-forms with a simple cond.
+	* progmodes/cc-engine.el (c-forward-<>-arglist-recur):
+	Refactor nested if-forms with a simple cond.
 	(c-forward-<>-arglist): Revert 2011-01-31 change.
 
 2011-02-13  Chong Yidong  <cyd@stupidchicken.com>
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)