diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/play/morse.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75bb06806bd..58aecb9e228 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-04-07 Aaron S. Hawley <aaron.s.hawley@gmail.com> + + * play/morse.el (denato-region): Handle varying case. (Bug#8386) + 2011-04-06 Chong Yidong <cyd@stupidchicken.com> * emacs-lisp/cconv.el (cconv--analyse-use): Ignore "ignored" when diff --git a/lisp/play/morse.el b/lisp/play/morse.el index b88f1b264cb..fa0887c0ac5 100644 --- a/lisp/play/morse.el +++ b/lisp/play/morse.el @@ -231,7 +231,7 @@ Geospatial-Intelligence Agency at http://www.nga.mil/") (if (null (looking-at "[a-z]+")) (forward-char 1) (setq str (buffer-substring (match-beginning 0) (match-end 0))) - (if (null (setq nato (rassoc str nato-alphabet))) + (if (null (setq nato (rassoc (capitalize str) nato-alphabet))) (goto-char (match-end 0)) (replace-match (if (string-equal "(" (car nato)) |