(underline-region, ununderline-region): Add * to interactive spec.

diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 20ffa315001e1ee7bc000c02f4448ed7fe3280e6..a7e6d30bd5cc423b4f3aae999d729366eb94bfe5 100644 (file)
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -37,7 +37,7 @@
 Works by overstriking underscores.
 Called from program, takes two arguments START and END
 which specify the range to operate on."
-  (interactive "r")
+  (interactive "*r")
   (save-excursion
    (let ((end1 (make-marker)))
      (move-marker end1 (max start end))
@@ -52,7 +52,7 @@ which specify the range to operate on."
   "Remove all underlining (overstruck underscores) in the region.
 Called from program, takes two arguments START and END
 which specify the range to operate on."
-  (interactive "r")
+  (interactive "*r")
   (save-excursion
    (let ((end1 (make-marker)))
      (move-marker end1 (max start end))