File tree Expand file tree Collapse file tree 1 file changed +0
-35
lines changed Expand file tree Collapse file tree 1 file changed +0
-35
lines changed Original file line number Diff line number Diff 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)
You can’t perform that action at this time.
0 commit comments