* lisp/play/morse.el (morse-region, unmorse-region): Barf if read-only.
This commit is contained in:
parent
16130297d0
commit
f72c1fd6af
2 changed files with 3 additions and 2 deletions
|
@ -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>
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue