Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Kill the whole import with kill nested.

  • Loading branch information...
commit d68579c0791af07a4d0fde9303382ffd3e19abc0 1 parent 741ab38
@chrisdone chrisdone authored
Showing with 11 additions and 1 deletion.
  1. +10 −0 haskell-move-nested.el
  2. +1 −1  haskell-process.el
View
10 haskell-move-nested.el
@@ -79,4 +79,14 @@
(haskell-move-nested-region))))
(kill-region start (cdr reg))))
+(defun haskell-delete-nested ()
+ "Kill the nested region after this."
+ (interactive)
+ (let ((start (point))
+ (reg (save-excursion
+ (search-backward-regexp "^[ ]+" (line-beginning-position) t 1)
+ (search-forward-regexp "[^ ]" (line-end-position) t 1)
+ (haskell-move-nested-region))))
+ (delete-region start (cdr reg))))
+
(provide 'haskell-move-nested)
View
2  haskell-process.el
@@ -376,7 +376,7 @@
(save-excursion
(goto-line line)
(goto-char (line-beginning-position))
- (kill-line)
+ (haskell-kill-nested)
(delete-char 1))))
(defun haskell-process-suggest-pragma (session pragma extension file)
Please sign in to comment.
Something went wrong with that request. Please try again.