# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1250431465 0
# Node ID 75f3a35d516efeee38082772eb0f264f0f6d9267
# Parent  f3695109ab95d706335a394c895587302fa509be
* progmodes/sh-script.el (sh-maybe-here-document): Avoid inserting
another heredoc if the user adds another < (Bug#3226).

diff -r f3695109ab95 -r 75f3a35d516e lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Aug 16 12:23:23 2009 +0000
+++ b/lisp/ChangeLog	Sun Aug 16 14:04:25 2009 +0000
@@ -1,5 +1,8 @@
 2009-08-16  Chong Yidong  <cyd@stupidchicken.com>
 
+	* progmodes/sh-script.el (sh-maybe-here-document): Avoid inserting
+	another heredoc if the user adds another < (Bug#3226).
+
 	* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
 	initialize based on window-system (Bug#4124).
 
diff -r f3695109ab95 -r 75f3a35d516e lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Sun Aug 16 12:23:23 2009 +0000
+++ b/lisp/progmodes/sh-script.el	Sun Aug 16 14:04:25 2009 +0000
@@ -3749,7 +3749,7 @@
   (interactive "*P")
   (self-insert-command (prefix-numeric-value arg))
   (or arg
-      (not (eq (char-after (- (point) 2)) last-command-event))
+      (not (looking-back "[^<]<<"))
       (save-excursion
 	(backward-char 2)
 	(sh-quoted-p))