Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6e81a223
Commit
6e81a223
authored
Apr 10, 2008
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
parent
d58ee9f1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
2 deletions
+3
-2
lisp/ChangeLog
lisp/ChangeLog
+1
-0
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+2
-2
No files found.
lisp/ChangeLog
View file @
6e81a223
...
...
@@ -22,6 +22,7 @@
* calendar/appt.el (appt): Add :prefix.
* calendar/diary-lib.el (diary-hook): Doc fix.
(diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
2008-04-10 Stefan Monnier <monnier@iro.umontreal.ca>
...
...
lisp/calendar/diary-lib.el
View file @
6e81a223
...
...
@@ -1325,8 +1325,7 @@ is marked. See the documentation for the function `diary-list-sexp-entries'."
(setq m displayed-month
y displayed-year))
(calendar-increment-month m y -1)
(setq first-date (calendar-absolute-from-gregorian (list m 1 y))
date (1- first-date))
(setq first-date (calendar-absolute-from-gregorian (list m 1 y)))
(calendar-increment-month m y 2)
(setq last-date
(calendar-absolute-from-gregorian
...
...
@@ -1351,6 +1350,7 @@ is marked. See the documentation for the function `diary-list-sexp-entries'."
(forward-line 1))
(if (bolp) (backward-char 1))
(setq entry (buffer-substring-no-properties entry-start (point))))
(setq date (1- first-date))
(while (<= (setq date (1+ date)) last-date)
(when (setq mark (diary-sexp-entry
sexp entry
...
...
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