Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1fa570af
Commit
1fa570af
authored
Mar 15, 2008
by
Glenn Morris
Browse files
(parse-time-string): Simplify.
parent
48dc6f9f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/calendar/parse-time.el
lisp/calendar/parse-time.el
+3
-3
No files found.
lisp/calendar/parse-time.el
View file @
1fa570af
;;; parse-time.el --- parsing time strings
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
2008
;; Free Software Foundation, Inc.
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
;;
2008
Free Software Foundation, Inc.
;; Author: Erik Naggum <erik@naggum.no>
;; Keywords: util
...
...
@@ -187,7 +187,7 @@ unknown are returned as nil."
(
let
((
parse-time-elt
(
pop
temp
))
(
rules
parse-time-rules
)
(
exit
nil
))
(
while
(
and
(
not
(
null
rules
))
(
not
exit
))
(
while
(
and
rules
(
not
exit
))
(
let*
((
rule
(
pop
rules
))
(
slots
(
pop
rule
))
(
predicate
(
pop
rule
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment