From debbugs-submit-bounces@debbugs.gnu.org Thu Mar 31 00:47:11 2011 Received: (at submit) by debbugs.gnu.org; 31 Mar 2011 04:47:11 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Q59mp-0003zX-Fa for submit@debbugs.gnu.org; Thu, 31 Mar 2011 00:47:11 -0400 Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Q59mo-0003zL-CY for submit@debbugs.gnu.org; Thu, 31 Mar 2011 00:47:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q59mi-0007gN-91 for submit@debbugs.gnu.org; Thu, 31 Mar 2011 00:47:05 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00,FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, T_DKIM_INVALID, T_TO_NO_BRKTS_FREEMAIL autolearn=unavailable version=3.3.1 Received: from lists.gnu.org ([199.232.76.165]:34594) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q59mi-0007gG-6S for submit@debbugs.gnu.org; Thu, 31 Mar 2011 00:47:04 -0400 Received: from [140.186.70.92] (port=43193 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q59me-0001jo-92 for bug-gnu-emacs@gnu.org; Thu, 31 Mar 2011 00:47:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q59md-0007ei-4I for bug-gnu-emacs@gnu.org; Thu, 31 Mar 2011 00:47:00 -0400 Received: from mail-bw0-f41.google.com ([209.85.214.41]:40865) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q59mc-0007eF-UJ; Thu, 31 Mar 2011 00:46:59 -0400 Received: by bwz17 with SMTP id 17so1709874bwz.0 for ; Wed, 30 Mar 2011 21:46:57 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:mime-version:date:message-id:subject:from:to:cc :content-type; bh=mr8ofd4LWP5oIoyYZNyC3bINlYtAbkp4nvTHGkmikiw=; b=TyUNfOvTa/ypMQXxhNmOsQGkEvnCEWxYf6rtxa3ADZ5pp+qTMViPx6tRfG0M06gOpz VNWZ9n7qvpXKw/T5HeOiZfgbZGNEU5H/8Gqhr8ta9DXFQ0RUXotPT198PZ/PlvGSRVs5 Swzshk3OfZVtwbimiLLI5T9MxmBBbkwiY8jAc= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:date:message-id:subject:from:to:cc:content-type; b=jH9yCNE6VM9R9ddtLv9yIW+SNt1W3g1YTRD+fsRJndYOJdiwEH72+fHc7g8RXn91fo OxHMlU14xAX5pgRsL+n1ilff6Acw+V11Y0Eipd5inuna71ml6/hMkxVF21aH2RYwyTgR I0BGc8eiLGdP0AnJParLUn6QXgZmNZCpUldIA= MIME-Version: 1.0 Received: by 10.204.33.22 with SMTP id f22mr1941816bkd.72.1301546817396; Wed, 30 Mar 2011 21:46:57 -0700 (PDT) Received: by 10.204.112.135 with HTTP; Wed, 30 Mar 2011 21:46:57 -0700 (PDT) Date: Thu, 31 Mar 2011 00:46:57 -0400 Message-ID: Subject: [patch] capitalization bug in NATO From: "Aaron S. Hawley" To: bug-gnu-emacs@gnu.org Content-Type: multipart/mixed; boundary=0003255585a6b5a0fa049fbffb96 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 199.232.76.165 X-Spam-Score: -5.2 (-----) X-Debbugs-Envelope-To: submit Cc: Glenn Morris X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -5.3 (-----) --0003255585a6b5a0fa049fbffb96 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Follow-up to my initial contribution of NATO alphabetization in #2288, I noticed that `denato-region' will not always work because `rassoc' is being case-sensitive. I've provided a command to operate on strings as a test suite, where (nato-string "echo mike alfa charlie sierra" t) should give "emacs", but it does not. The following will work since the capitalization jives with internals. (nato-string "Echo Mike Alfa Charlie Sierra" t) Attached is a proposed patch. Thanks. /a 2011-03-31 Aaron S. Hawley * play/morse.el (denato-region): Decoding NATO alphabet encodings should be done case-insensitive. (nato-string): New function. --- lisp/play/morse.el 2011-03-07 07:35:25 +0000 +++ lisp/play/morse.el 2011-03-31 04:25:45 +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)) @@ -240,6 +240,18 @@ (if (looking-at "-") (delete-char 1)))))))) +(defun nato-string (string &optional arg) + "Convert NATO phonetic alphabet in STRING to ordinary ASCII text." + (interactive "sConvert to NATO: \nP") + (with-temp-buffer + (insert string) + (if arg + (denato-region (point-min) (point-max)) + (nato-region (point-min) (point-max))) + (if (interactive-p) + (message (buffer-string)) + (buffer-string)))) + (provide 'morse) ;;; morse.el ends here --=20 In general, we reserve the right to have a poor memory--the computer, however, is supposed to remember!=A0 Poor computer.=A0 -- Guy Lewis Steele Jr. --0003255585a6b5a0fa049fbffb96 Content-Type: application/octet-stream; name="morse.el.diff" Content-Disposition: attachment; filename="morse.el.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_glx6q0580 MjAxMS0wMy0zMSAgQWFyb24gUy4gSGF3bGV5ICA8YWFyb24ucy5oYXdsZXlAZ21haWwuY29tPgoK CSogcGxheS9tb3JzZS5lbCAoZGVuYXRvLXJlZ2lvbik6IERlY29kaW5nIE5BVE8gYWxwaGFiZXQg ZW5jb2RpbmdzCglzaG91bGQgYmUgZG9uZSBjYXNlLWluc2Vuc2l0aXZlLgoJKG5hdG8tc3RyaW5n KTogTmV3IGZ1bmN0aW9uLgoKLS0tIGxpc3AvcGxheS9tb3JzZS5lbAkyMDExLTAzLTA3IDA3OjM1 OjI1ICswMDAwCisrKyBsaXNwL3BsYXkvbW9yc2UuZWwJMjAxMS0wMy0zMSAwNDoyNTo0NSArMDAw MApAQCAtMjMxLDcgKzIzMSw3IEBACiAJKGlmIChudWxsIChsb29raW5nLWF0ICJbYS16XSsiKSkK IAkgICAgKGZvcndhcmQtY2hhciAxKQogCSAgKHNldHEgc3RyIChidWZmZXItc3Vic3RyaW5nICht YXRjaC1iZWdpbm5pbmcgMCkgKG1hdGNoLWVuZCAwKSkpCi0JICAoaWYgKG51bGwgKHNldHEgbmF0 byAocmFzc29jIHN0ciBuYXRvLWFscGhhYmV0KSkpCisJICAoaWYgKG51bGwgKHNldHEgbmF0byAo cmFzc29jIChjYXBpdGFsaXplIHN0cikgbmF0by1hbHBoYWJldCkpKQogCSAgICAgIChnb3RvLWNo YXIgKG1hdGNoLWVuZCAwKSkKIAkgICAgKHJlcGxhY2UtbWF0Y2gKIAkJICAoaWYgKHN0cmluZy1l cXVhbCAiKCIgKGNhciBuYXRvKSkKQEAgLTI0MCw2ICsyNDAsMTggQEAKIAkgICAgKGlmIChsb29r aW5nLWF0ICItIikKIAkJKGRlbGV0ZS1jaGFyIDEpKSkpKSkpKQogCisoZGVmdW4gbmF0by1zdHJp bmcgKHN0cmluZyAmb3B0aW9uYWwgYXJnKQorICAiQ29udmVydCBOQVRPIHBob25ldGljIGFscGhh YmV0IGluIFNUUklORyB0byBvcmRpbmFyeSBBU0NJSSB0ZXh0LiIKKyAgKGludGVyYWN0aXZlICJz Q29udmVydCB0byBOQVRPOiBcblAiKQorICAod2l0aC10ZW1wLWJ1ZmZlcgorICAgIChpbnNlcnQg c3RyaW5nKQorICAgIChpZiBhcmcKKyAgICAgICAgKGRlbmF0by1yZWdpb24gKHBvaW50LW1pbikg KHBvaW50LW1heCkpCisgICAgICAobmF0by1yZWdpb24gKHBvaW50LW1pbikgKHBvaW50LW1heCkp KQorICAgIChpZiAoaW50ZXJhY3RpdmUtcCkKKyAgICAgICAgKG1lc3NhZ2UgKGJ1ZmZlci1zdHJp bmcpKQorICAgICAgKGJ1ZmZlci1zdHJpbmcpKSkpCisKIChwcm92aWRlICdtb3JzZSkKIAogOzs7 IG1vcnNlLmVsIGVuZHMgaGVyZQoK --0003255585a6b5a0fa049fbffb96-- From debbugs-submit-bounces@debbugs.gnu.org Wed Apr 06 23:26:38 2011 Received: (at 8386-done) by debbugs.gnu.org; 7 Apr 2011 03:26:38 +0000 Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Q7frh-0003Sy-Pa for submit@debbugs.gnu.org; Wed, 06 Apr 2011 23:26:37 -0400 Received: from fencepost.gnu.org ([140.186.70.10]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Q7frf-0003Sm-GR for 8386-done@debbugs.gnu.org; Wed, 06 Apr 2011 23:26:36 -0400 Received: from localhost ([127.0.0.1]:44286) by fencepost.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q7fra-0002WO-8G; Wed, 06 Apr 2011 23:26:30 -0400 From: Glenn Morris To: 8386-done@debbugs.gnu.org Subject: Re: [patch] capitalization bug in NATO References: X-Spook: Hugo Chavez red noise Geraldton bootleg Europol X-Ran: m/LXlR3O$j[twI9)lxZIf3-/nnBvk:9,[?V^c6T"@oU{(GZFWLMJ{#'us(Mk User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -6.3 (------) X-Debbugs-Envelope-To: 8386-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.3 (------) (no need to cc me on reports) "Aaron S. Hawley" wrote: > - (if (null (setq nato (rassoc str nato-alphabet))) > + (if (null (setq nato (rassoc (capitalize str) nato-alphabet))) Applied. > +(defun nato-string (string &optional arg) I don't see a need for this command. From unknown Wed Jun 25 05:39:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Thu, 05 May 2011 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator