# HG changeset patch # User Richard M. Stallman # Date 869684854 0 # Node ID 982cb05db65f6454b94cc9c7f9ce9ff84321b914 # Parent 099aeb6bf4eac5a0ca5c6548cecd74031ba37ee7 (diary-entry-time): Downcase the am/pm letter. diff -r 099aeb6bf4ea -r 982cb05db65f lisp/calendar/diary-lib.el --- a/lisp/calendar/diary-lib.el Wed Jul 23 16:57:18 1997 +0000 +++ b/lisp/calendar/diary-lib.el Wed Jul 23 19:07:34 1997 +0000 @@ -892,8 +892,7 @@ (+ (* 100 (% (string-to-int (substring s (match-beginning 1) (match-end 1))) 12)) - (if (string-equal "a" - (substring s (match-beginning 2) (match-end 2))) + (if (equal ?a (downcase (aref s (match-beginning 2)))) 0 1200))) ((string-match;; Hour and minute XX:XXam or XX:XXpm "^[ \t]*\\([0-9]?[0-9]\\):\\([0-9][0-9]\\)\\([ap]\\)m\\>" s) @@ -901,8 +900,7 @@ (substring s (match-beginning 1) (match-end 1))) 12)) (string-to-int (substring s (match-beginning 2) (match-end 2))) - (if (string-equal "a" - (substring s (match-beginning 3) (match-end 3))) + (if (equal ?a (downcase (aref s (match-beginning 3)))) 0 1200))) (t -9999)));; Unrecognizable