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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 673f8a4..38d9283 100644 (file)
--- 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 ca7d8ef..b88f1b2 100644 (file)
--- 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