Skip to content

Commit f09e792

Browse files
committed
Remove unused and unprefixed function
1 parent a6c7e4c commit f09e792

File tree

1 file changed

+0
-35
lines changed

1 file changed

+0
-35
lines changed

purescript-indentation.el

Lines changed: 0 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -182,41 +182,6 @@ autofill-mode."
182182
(forward-char))
183183
cc)))
184184

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-
220185
(defun purescript-indentation-auto-fill-function ()
221186
(when (> (purescript-current-column) fill-column)
222187
(while (> (purescript-current-column) fill-column)

0 commit comments

Comments
 (0)