File tree 1 file changed +0
-35
lines changed 1 file changed +0
-35
lines changed Original file line number Diff line number Diff line change @@ -182,41 +182,6 @@ autofill-mode."
182
182
(forward-char ))
183
183
cc)))
184
184
185
- (defun kill-indented-line (&optional arg )
186
- " `kill-line' for indented text.
187
- Preserves indentation and removes extra whitespace"
188
- (interactive " P" )
189
- (let ((col (purescript-current-column))
190
- (old-point (point )))
191
- (cond ((or (and (numberp arg) (< arg 0 ))
192
- (and (not (looking-at " [ \t ]*$" ))
193
- (or (not (numberp arg)) (zerop arg))))
194
- ; use default behavior when calling with a negative argument
195
- ; or killing (once) from the middle of a line
196
- (kill-line arg))
197
- ((and (skip-chars-backward " \t " ) ; always true
198
- (bolp )
199
- (save-excursion
200
- (forward-line arg)
201
- (not (looking-at " [ \t ]*$" ))))
202
- ; killing from an empty line:
203
- ; preserve indentation of the next line
204
- (kill-region (point )
205
- (save-excursion
206
- (forward-line arg)
207
- (point )))
208
- (skip-chars-forward " \t " )
209
- (if (> (purescript-current-column) col)
210
- (move-to-column col)))
211
- (t ; killing from not empty line:
212
- ; kill all indentation
213
- (goto-char old-point)
214
- (kill-region (point )
215
- (save-excursion
216
- (forward-line arg)
217
- (skip-chars-forward " \t " )
218
- (point )))))))
219
-
220
185
(defun purescript-indentation-auto-fill-function ()
221
186
(when (> (purescript-current-column) fill-column)
222
187
(while (> (purescript-current-column) fill-column)
You can’t perform that action at this time.
0 commit comments