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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 673f8a456f6474d6eacffe90f9c2fc53fb5b1f87..38d9283f748d354a3d27d9f98236ae5ede2afac8 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 ca7d8ef5496468b5764f193516b96187424f322c..b88f1b264cbf0b27106b263b240ef506a6b5da62 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