diff options
| author | Stefan Monnier | 2015-09-21 16:22:17 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-09-21 16:22:17 -0400 |
| commit | 7760f32c1f5678bda97376d7bcb1153b9570320f (patch) | |
| tree | 82213641c7693ae2fa69f8e4390ee9bf5707f250 | |
| parent | e3a6246eff4a793171511f32e9c6877faa2f6f3e (diff) | |
| download | emacs-7760f32c1f5678bda97376d7bcb1153b9570320f.tar.gz emacs-7760f32c1f5678bda97376d7bcb1153b9570320f.zip | |
* 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).
| -rw-r--r-- | lisp/progmodes/prolog.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 2081 | (defun prolog-find-unmatched-paren () | 2081 | (defun prolog-find-unmatched-paren () |
| 2082 | "Return the column of the last unmatched left parenthesis." | 2082 | "Return the column of the last unmatched left parenthesis." |
| 2083 | (save-excursion | 2083 | (save-excursion |
| 2084 | (goto-char (or (car (nth 9 (syntax-ppss))) (point-min))) | 2084 | (goto-char (or (nth 1 (syntax-ppss)) (point-min))) |
| 2085 | (current-column))) | 2085 | (current-column))) |
| 2086 | 2086 | ||
| 2087 | 2087 | ||