* lisp/progmodes/sh-script.el (sh-find-prev-matching): Disable SMIE's

forward-sexp-function while we redo its job.

Fixes: debbugs:15613

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2013-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/sh-script.el (sh-find-prev-matching): Disable SMIE's
+	forward-sexp-function while we redo its job (bug#15613).
+
 2013-10-17  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-comb.el (math-prime-test): Don't assume large integers are

lisp/progmodes/sh-script.el

@@ -3097,6 +3097,7 @@ This takes into account that there may be nested open..close pairings.
 OPEN and CLOSE are regexps denoting the tokens to be matched.
 Optional parameter DEPTH (usually 1) says how many to look for."
   (let ((parse-sexp-ignore-comments t)
+        (forward-sexp-function nil)
 	prev)
     (setq depth (or depth 1))
     (save-excursion

test/indent/shell.sh

@@ -5,6 +5,12 @@ setlock -n /tmp/getmail.lock && echo getmail isn\'t running
 
 # adsgsdg
 
+if foo; then
+    if bar; then
+	toto
+    fi
+fi                              # bug#15613
+
 case $X in
     foo)
         do_something