diff options
| author | Aaron S. Hawley <aaron.s.hawley@gmail.com> | 2011-04-06 20:27:15 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-04-06 20:27:15 -0700 |
| commit | eb237b0f7f6c54fd7f6209a22e145422e5a6f222 (patch) | |
| tree | 506f4d9ca9461e99eda3520f89a810a10d76fd28 /lisp/play/morse.el | |
| parent | 5fac70838ce26b8609786364c223bb39e7b0593a (diff) | |
| download | emacs-eb237b0f7f6c54fd7f6209a22e145422e5a6f222.tar.gz emacs-eb237b0f7f6c54fd7f6209a22e145422e5a6f222.tar.bz2 emacs-eb237b0f7f6c54fd7f6209a22e145422e5a6f222.zip | |
* lisp/play/morse.el (denato-region): Handle varying case.
Fixes: debbugs:8386
Diffstat (limited to 'lisp/play/morse.el')
| -rw-r--r-- | lisp/play/morse.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |