[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103858: * lisp/play/morse.el (denato
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103858: * lisp/play/morse.el (denato-region): Handle varying case. |
Date: |
Wed, 06 Apr 2011 20:27:15 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103858: * lisp/play/morse.el (denato-region): Handle varying case.,
Glenn Morris <=