Prevent "Unbalanced parenthesis" error when aligning parameters

voxpupuli · Mar 2, 2021 · fd20504 · fd20504
1 parent 9f4fef6
commit fd20504
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/puppet-mode.el b/puppet-mode.el
@@ -1036,6 +1036,11 @@ Used as `syntax-propertize-function' in Puppet Mode."
   "Align the current block."
   (interactive)
   (save-excursion
+    ;; Move point to beginning of string if inside a string to
+    ;; prevent "Unbalanced parentheses" error by `backward-up-list'.
+    (let ((region (puppet-string-region)))
+      (if region
+          (goto-char (car region))))
     (backward-up-list)
     (let ((beg (point)))
       (forward-list)