From: Aaron S. Hawley <aaron.s.hawley@gmail.com>
Date: Thu, 7 Apr 2011 03:27:15 +0000 (-0700)
Subject: * lisp/play/morse.el (denato-region): Handle varying case.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb237b0f7f6c54fd7f6209a22e145422e5a6f222;p=emacs.git

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

Fixes: debbugs:8386
---

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))