From f72c1fd6afa573e3cabe8046b9de31c2ce73cf62 Mon Sep 17 00:00:00 2001 From: "Aaron S. Hawley" Date: Sun, 6 Mar 2011 23:35:25 -0800 Subject: [PATCH] * lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only. --- lisp/ChangeLog | 1 + lisp/play/morse.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) 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 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 -- 2.39.5