Permalink
Browse files

Kill the whole import with kill nested.

  • Loading branch information...
1 parent 741ab38 commit d68579c0791af07a4d0fde9303382ffd3e19abc0 @chrisdone chrisdone committed May 29, 2012
Showing with 11 additions and 1 deletion.
  1. +10 −0 haskell-move-nested.el
  2. +1 −1 haskell-process.el
View
@@ -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
@@ -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)

0 comments on commit d68579c

Please sign in to comment.