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

This commit is contained in:
Aaron S. Hawley 2011-03-06 23:35:25 -08:00 committed by Glenn Morris
parent 16130297d0
commit f72c1fd6af
2 changed files with 3 additions and 2 deletions

View file

@ -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>

View file

@ -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