Commit 0488694c authored by Richard M. Stallman's avatar Richard M. Stallman

(diary-entry-time): Bind case-fold-search to nil.

parent 85c92290
......@@ -882,6 +882,7 @@ A value of 0 in any position of the pattern is a wildcard."
For example, returns 1325 for 1:25pm. Returns -9999 if no time is recognized.
The recognized forms are XXXX or X:XX or XX:XX (military time), XXam or XXpm,
and XX:XXam or XX:XXpm."
(let ((case-fold-search nil))
(cond ((string-match;; Military time
"^[ \t]*\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" s)
(+ (* 100 (string-to-int
......@@ -902,7 +903,7 @@ and XX:XXam or XX:XXpm."
(string-to-int (substring s (match-beginning 2) (match-end 2)))
(if (equal ?a (downcase (aref s (match-beginning 3))))
0 1200)))
(t -9999)));; Unrecognizable
(t -9999))));; Unrecognizable
(defun list-sexp-diary-entries (date)
"Add sexp entries for DATE from the diary file to `diary-entries-list'.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment