Only indent if the parser made it that far.

skeeto · Sep 16, 2012 · 54befcf · 54befcf
1 parent 055b373
commit 54befcf
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/psl-mode.el b/psl-mode.el
@@ -105,11 +105,12 @@ other modes do."
   (condition-case err
       (psl-compile-to-elisp)
     (error nil))
-  (let ((indent (psl-count-indent (delete 'expr (reverse mpd-point-stack)))))
-    (save-excursion
-      (back-to-indentation)
-      (if (looking-at "}") (setq indent (1- indent))))
-    (psl-indent-line-to (max 0 (* psl-indent-width indent)))))
+  (unless (< mpd-best (point))
+    (let ((indent (psl-count-indent (delete 'expr (reverse mpd-point-stack)))))
+      (save-excursion
+        (back-to-indentation)
+        (if (looking-at "}") (setq indent (1- indent))))
+      (psl-indent-line-to (max 0 (* psl-indent-width indent))))))
 
 (psl-count-indent '(defvar expr if expr))