branch: elpa/raku-mode
commit 73c35c089b8da4d6bdeaa337264310d96f93c387
Author: Roman Hargrave <[email protected]>
Commit: Roman Hargrave <[email protected]>
Remove an unnecessary (progn) that I missed.
---
raku-indent.el | 35 +++++++++++++++++------------------
1 file changed, 17 insertions(+), 18 deletions(-)
diff --git a/raku-indent.el b/raku-indent.el
index 9b78aff889..6c1aa7372a 100644
--- a/raku-indent.el
+++ b/raku-indent.el
@@ -82,29 +82,28 @@
(t (smie-default-backward-token))))) ;; If none of the above
matched, defer to SMIE default search
(defun raku-smie-rules (kind token)
- (progn
- (pcase (cons kind token)
- ;; Basic indent offset
- (`(:elem . basic) raku-indent-offset)
+ (pcase (cons kind token)
+ ;; Basic indent offset
+ (`(:elem . basic) raku-indent-offset)
- ;; Indent offset for function args
- (`(:elem . arg) 0)
+ ;; Indent offset for function args
+ (`(:elem . arg) 0)
- (`(:list-intro . ,(or `";" `"")) t) ;"" stands for BOB (bug#15467).
+ (`(:list-intro . ,(or `";" `"")) t) ;"" stands for BOB (bug#15467).
- ;; Make sure that hanging assignment gets indented
- (`(:before . "=")
- (if (smie-rule-hanging-p)
- (smie-rule-parent raku-indent-offset)))
+ ;; Make sure that hanging assignment gets indented
+ (`(:before . "=")
+ (if (smie-rule-hanging-p)
+ (smie-rule-parent raku-indent-offset)))
- (`(:before . "{")
- (when (smie-rule-hanging-p) ; is `{` the last thing on this line?
- (smie-backward-sexp ";") ; y tho
- (smie-indent-virtual)))
+ (`(:before . "{")
+ (when (smie-rule-hanging-p) ; is `{` the last thing on this line?
+ (smie-backward-sexp ";") ; y tho
+ (smie-indent-virtual)))
- (`(:before . ,(or "{" "("))
- (if (smie-rule-hanging-p)
- (smie-rule-parent 0))))))
+ (`(:before . ,(or "{" "("))
+ (if (smie-rule-hanging-p)
+ (smie-rule-parent 0)))))
(provide 'raku-indent)
