From: Markus Triska <triska@metalevel.at>
Date: Sat, 3 Oct 2020 15:13:17 +0000 (+0200)
Subject: use "r" interactive specifier
X-Git-Tag: v0.9.0~173^2^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=83350f8866a92c2de952f048726462231dd95647;p=scryer-prolog.git

use "r" interactive specifier
---

diff --git a/tools/showterm.el b/tools/showterm.el
index 3f38f3d9..37cde277 100644
--- 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))