From 83350f8866a92c2de952f048726462231dd95647 Mon Sep 17 00:00:00 2001 From: Markus Triska Date: Sat, 3 Oct 2020 17:13:17 +0200 Subject: [PATCH] use "r" interactive specifier --- tools/showterm.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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)) -- 2.54.0