* lisp/play/morse.el (denato-region): Handle varying case.

Fixes: debbugs:8386

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75bb06806bd52406de84d9bd6d4e2e6b862b3735..58aecb9e2287055bb799125f2eeb0177dca22d5d 100644 (file)
--- 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 b88f1b264cbf0b27106b263b240ef506a6b5da62..fa0887c0ac5adaab7a75cb009d48040f7d9f81bb 100644 (file)
--- 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))