diff options
| author | Aaron S. Hawley <aaron.s.hawley@gmail.com> | 2011-03-06 23:35:25 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-03-06 23:35:25 -0800 |
| commit | f72c1fd6afa573e3cabe8046b9de31c2ce73cf62 (patch) | |
| tree | 1da5a93d1494436daece237e60f27eb4c441d81f /lisp/play | |
| parent | 16130297d04ceb76a8c1f6649863560bd234697e (diff) | |
| download | emacs-f72c1fd6afa573e3cabe8046b9de31c2ce73cf62.tar.gz | |
* lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/morse.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |