[Emacs-diffs] /srv/bzr/emacs/trunk r103571: * lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.

[Glenn Morris]

------------------------------------------------------------
revno: 103571
author: Aaron S. Hawley <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2011-03-06 23:35:25 -0800
message:
  * lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.
modified:
  lisp/ChangeLog
  lisp/play/morse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-07 07:33:11 +0000
+++ b/lisp/ChangeLog    2011-03-07 07:35:25 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/play/morse.el'
--- a/lisp/play/morse.el        2011-03-07 07:33:11 +0000
+++ b/lisp/play/morse.el        2011-03-07 07:35:25 +0000
@@ -151,7 +151,7 @@
 ;;;###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 @@
 ;;;###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