From: Aaron S. Hawley <aaron.s.hawley@gmail.com>
Date: Mon, 7 Mar 2011 07:35:25 +0000 (-0800)
Subject: * lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f72c1fd6afa573e3cabe8046b9de31c2ce73cf62;p=emacs.git

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

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