* lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.

2 files changed, 3 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 673f8a456f6..38d9283f748 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
         * play/morse.el (nato-alphabet, nato-region, denato-region):
         New variable and functions.  (Bug#2288)
+        (morse-region, unmorse-region): Barf if read-only.
 
 2011-03-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index ca7d8ef5496..b88f1b264cb 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -151,7 +151,7 @@ Geospatial-Intelligence Agency at http://www.nga.mil/")
 ;;;###autoload
 (defun morse-region (beg end)
   "Convert all text in a given region to morse code."
-  (interactive "r")
+  (interactive "*r")
   (if (integerp end)
       (setq end (copy-marker end)))
   (save-excursion
@@ -174,7 +174,7 @@ Geospatial-Intelligence Agency at http://www.nga.mil/")
 ;;;###autoload
 (defun unmorse-region (beg end)
   "Convert morse coded text in region to ordinary ASCII text."
-  (interactive "r")
+  (interactive "*r")
   (if (integerp end)
       (setq end (copy-marker end)))
   (save-excursion