Replace region handy func.

haskell · Jul 4, 2012 · 192098e · 192098e
1 parent d3b8d49
commit 192098e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/haskell-show.el b/haskell-show.el
@@ -28,6 +28,11 @@
 (defvar sexp-show "sexp-show")
 (require 'haskell-string)
 
+(defun haskell-show-replace-region ()
+  "Replace the given region with a pretty printed version."
+  (interactive)
+  (haskell-show-replace (region-beginning) (region-end)))
+
 ;;;###autoload
 (defun haskell-show-replace (start end)
   "Replace the given region containing a Show value with a pretty