use "r" interactive specifier

diff --git a/tools/showterm.el b/tools/showterm.el
index 3f38f3d904c1786e403b88f0f942cb62e3c6902f..37cde277db3dfeac3e9146b83a1f2d46c339eb68 100644 (file)
--- a/tools/showterm.el
+++ b/tools/showterm.el
@@ -42,14 +42,12 @@
 (defvar showterm-pixel-width 500
   "Width of the drawn term in pixels.")
 
-(defun showterm (arg)
-  (interactive "p")
+(defun showterm (from to)
+  (interactive "r")
   (unless (use-region-p)
-    (error "no region"))
-  (let* ((from (region-beginning))
-         (to (region-end))
-         (str (buffer-substring-no-properties from to))
-         op-declarations)
+    (error "No region"))
+  (let ((str (buffer-substring-no-properties from to))
+        op-declarations)
     (save-excursion
       ;; rudimentary support for op/3 directives.
       (goto-char (point-min))