[elpa] externals/a68-mode 14a9074240 3/3: Fix indent rule for ;

[ELPA Syncer]

branch: externals/a68-mode
commit 14a907424090cb45a7e6c5eabab82c09ff8e69ae
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    Fix indent rule for ;
---
 a68-mode.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index f5e4feca67..0b42f02f81 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -418,10 +418,8 @@ with the equivalent upcased form."
 (defun a68--smie-rules-upper (kind token)
   (pcase (cons kind token)
     (`(:elem . basic) a68-indent-level)
-    ;; (`(,_ . ",") (smie-rule-separator kind))
     (`(,_ . ",") (smie-rule-separator kind))
-    (`(,_ . ";") (when (smie-rule-parent-p)
-                   (smie-rule-parent)))
+    (`(,_ . ";") (smie-rule-separator kind))
     (`(:after . ":=") a68-indent-level)
     (`(:after . "=") a68-indent-level)
     (`(:before . "BEGIN")
@@ -447,10 +445,8 @@ with the equivalent upcased form."
 (defun a68--smie-rules-supper (kind token)
   (pcase (cons kind token)
     (`(:elem . basic) a68-indent-level)
-    ;; (`(,_ . ",") (smie-rule-separator kind))
     (`(,_ . ",") (smie-rule-separator kind))
-    (`(,_ . ";") (when (smie-rule-parent-p)
-                   (smie-rule-parent)))
+    (`(,_ . ";") (smie-rule-separator kind))
     (`(:after . ":=") a68-indent-level)
     (`(:after . "=") a68-indent-level)
     (`(:before . "begin")