X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/cafdcef32d55cbb44389d7e322e7f973cbb72dfd..ba3189039adc8ec5eba5ed3e21d42019a4616b7c:/lisp/play/morse.el

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index b88f1b264c..5394d3f283 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,6 +1,6 @@
 ;;; morse.el --- convert text to morse code and back             -*- coding: utf-8 -*-
 
-;; Copyright (C) 1995, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2001-2014 Free Software Foundation, Inc.
 
 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
 ;; Keywords: games
@@ -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))