[Emacs-diffs] /srv/bzr/emacs/trunk r103858: * lisp/play/morse.el (denato-region): Handle varying case.

[Glenn Morris]

------------------------------------------------------------
revno: 103858
author: Aaron S. Hawley <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-04-06 20:27:15 -0700
message:
  * lisp/play/morse.el (denato-region): Handle varying case.
modified:
  lisp/ChangeLog
  lisp/play/morse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-06 21:55:08 +0000
+++ b/lisp/ChangeLog    2011-04-07 03:27:15 +0000
@@ -1,3 +1,7 @@
+2011-04-07  Aaron S. Hawley  <address@hidden>
+
+       * play/morse.el (denato-region): Handle varying case.  (Bug#8386)
+
 2011-04-06  Chong Yidong  <address@hidden>
 
        * emacs-lisp/cconv.el (cconv--analyse-use): Ignore "ignored" when

=== modified file 'lisp/play/morse.el'
--- a/lisp/play/morse.el        2011-03-07 07:35:25 +0000
+++ b/lisp/play/morse.el        2011-04-07 03:27:15 +0000
@@ -231,7 +231,7 @@
        (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))