Fix region

emacs.el

@@ -1930,7 +1930,11 @@ DISPLAY non-nil means redisplay buffer as output is inserted."
 
 (defun awk-preview (beg end)
   "Run awk and preview result."
-  (interactive "r")
+  (interactive (if (use-region-p)
+                   (list (region-beginning)
+                         (region-end))
+                 (list (point-min)
+                       (point-max))))
   (when (and awk-preview--env
              (awk-preview--env-running-p awk-preview--env))
     (error "AWK-Preview already running"))
@@ -2020,6 +2024,9 @@ DISPLAY non-nil means redisplay buffer as output is inserted."
     (define-key map (kbd "C-c C-l") 'awk-preview-update-preview)
     (define-key map (kbd "C-c C-k") 'awk-preview-abort)
     (define-key map (kbd "C-c C-c") 'awk-preview-commit)
+    ;; TODO: Implement
+    ;; Back preview buffer to original content
+    (define-key map (kbd "C-c C-r") 'awk-preview-clear)
     map)
   "Keymap for `awk-preview-program-mode'.")