HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright year to 2014 by running admin/update-copyright.
[bpt/emacs.git]
/
lisp
/
play
/
morse.el
diff --git
a/lisp/play/morse.el
b/lisp/play/morse.el
index
b88f1b2
..
5394d3f
100644
(file)
--- 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 -*-
;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*-
-;; Copyright (C) 1995, 2001-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2001-201
4
Free Software Foundation, Inc.
;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
;; Keywords: games
;; 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 (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))
(goto-char (match-end 0))
(replace-match
(if (string-equal "(" (car nato))