File tree 1 file changed +12
-11
lines changed
1 file changed +12
-11
lines changed Original file line number Diff line number Diff line change @@ -196,17 +196,18 @@ autofill-mode."
196
196
(end-of-line ))))
197
197
198
198
(defun purescript-indentation-reindent (col )
199
- (beginning-of-line )
200
- (delete-region (point )
201
- (progn
202
- (when (and (eq purescript-literate 'bird )
203
- (eq (char-after ) ?> ))
204
- (forward-char ))
205
- (skip-syntax-forward " -" )
206
- (point )))
207
- (when (eq purescript-literate 'bird )
208
- (insert " >" ))
209
- (indent-to col))
199
+ (unless (= col (purescript-indentation-current-indentation))
200
+ (beginning-of-line )
201
+ (delete-region (point )
202
+ (progn
203
+ (when (and (eq purescript-literate 'bird )
204
+ (eq (char-after ) ?> ))
205
+ (forward-char ))
206
+ (skip-syntax-forward " -" )
207
+ (point )))
208
+ (when (eq purescript-literate 'bird )
209
+ (insert " >" ))
210
+ (indent-to col)))
210
211
211
212
(defun purescript-indentation-current-indentation ()
212
213
(if (eq purescript-literate 'bird )
You can’t perform that action at this time.
0 commit comments