@@ -434,7 +434,7 @@ Returns the location of the start of the comment, nil otherwise."
434
434
(defun purescript-indent-next-symbol-safe (end )
435
435
" Puts point to the next following symbol, or to end if there are no more
436
436
symbols in the sexp."
437
- (condition-case errlist (purescript-indent-next-symbol end)
437
+ (condition-case nil (purescript-indent-next-symbol end)
438
438
(error (goto-char end))))
439
439
440
440
(defun purescript-indent-separate-valdef (start end )
@@ -1292,7 +1292,7 @@ We stay in the cycle as long as the TAB key is pressed."
1292
1292
(if marker
1293
1293
(goto-char (marker-position marker)))))))
1294
1294
1295
- (defun purescript-indent-region (start end )
1295
+ (defun purescript-indent-region (_start _end )
1296
1296
(error " Auto-reindentation of a region is not supported " ))
1297
1297
1298
1298
; ;; alignment functions
@@ -1430,9 +1430,9 @@ TYPE is either \\='guard or \\='rpurs."
1430
1430
(if regstack
1431
1431
(purescript-indent-shift-columns maxcol regstack)))))))
1432
1432
1433
- (defun purescript-indent-align-guards-and-rpurs (start end )
1433
+ (defun purescript-indent-align-guards-and-rpurs (_start _end )
1434
1434
" Align the guards and rpurs of functions in the region, which must be active."
1435
- ; ; The `start ' and `end ' args are dummys right now: they're just there so
1435
+ ; ; The `_start ' and `_end ' args are dummys right now: they're just there so
1436
1436
; ; we can use the "r" interactive spec which properly signals an error.
1437
1437
(interactive " *r" )
1438
1438
(purescript-indent-align-def t 'guard )
0 commit comments