From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Sep 2015 20:22:17 +0000 (-0400)
Subject: * lisp/progmodes/prolog.el: Fix nested electric if-then-else
X-Git-Tag: emacs-25.0.90~1224^2~50
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7760f32c1f5678bda97376d7bcb1153b9570320f;p=emacs.git

* lisp/progmodes/prolog.el: Fix nested electric if-then-else

* lisp/progmodes/prolog.el (prolog-find-unmatched-paren): Use innermost
rather than outermost paren (bug#21526).
---

diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 24ac8d75960..8c02e5402a2 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -2081,7 +2081,7 @@ Argument BOUND is a buffer position limiting searching."
 (defun prolog-find-unmatched-paren ()
   "Return the column of the last unmatched left parenthesis."
   (save-excursion
-    (goto-char (or (car (nth 9 (syntax-ppss))) (point-min)))
+    (goto-char (or (nth 1 (syntax-ppss)) (point-min)))
     (current-column)))