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
5233edd7
Commit
5233edd7
authored
May 12, 2011
by
Glenn Morris
Browse files
* lisp/calendar/appt.el (appt-make-list): Simplify.
parent
92d10796
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
8 deletions
+9
-8
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/calendar/appt.el
lisp/calendar/appt.el
+5
-8
No files found.
lisp/ChangeLog
View file @
5233edd7
2011-05-13 Glenn Morris <rgm@gnu.org>
* calendar/appt.el (appt-make-list): Simplify.
2011-05-12 Andreas Schwab <schwab@linux-m68k.org>
* progmodes/ld-script.el (ld-script-keywords)
...
...
lisp/calendar/appt.el
View file @
5233edd7
...
...
@@ -569,15 +569,12 @@ Any appointments made with `appt-add' are not affected by this function."
(
setq
entry-list
(
cdr
entry-list
)))))
(
setq
appt-time-msg-list
(
appt-sort-list
appt-time-msg-list
))
;; Convert current time to minutes after midnight (12:01am = 1),
;; so that elements in the list that are earlier than the
;; present time can be removed.
;; and remove elements in the list that are in the past.
(
let*
((
now
(
decode-time
))
(
cur-comp-time
(
+
(
*
60
(
nth
2
now
))
(
nth
1
now
)))
(
appt-comp-time
(
caar
(
car
appt-time-msg-list
))))
(
while
(
and
appt-time-msg-list
(
<
appt-comp-time
cur-comp-time
))
(
setq
appt-time-msg-list
(
cdr
appt-time-msg-list
))
(
if
appt-time-msg-list
(
setq
appt-comp-time
(
caar
(
car
appt-time-msg-list
)))))))))
(
now-mins
(
+
(
*
60
(
nth
2
now
))
(
nth
1
now
))))
(
while
(
and
appt-time-msg-list
(
<
(
caar
(
car
appt-time-msg-list
))
now-mins
))
(
setq
appt-time-msg-list
(
cdr
appt-time-msg-list
)))))))
(
defun
appt-sort-list
(
appt-list
)
...
...
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