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
44e9df9a
Commit
44e9df9a
authored
Jun 22, 1993
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* diary-ins.el (insert-cyclic-diary-entry): Fix date form.
parent
1bd410e5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
10 deletions
+14
-10
lisp/diary-ins.el
lisp/diary-ins.el
+14
-10
No files found.
lisp/diary-ins.el
View file @
44e9df9a
...
...
@@ -147,16 +147,20 @@ Prefix arg will make the entry nonmarking."
"Insert a cyclic diary entry starting at the date given by point.
Prefix arg will make the entry nonmarking."
(
interactive
"P"
)
(
make-diary-entry
(
format
"%s(diary-cyclic %d %s)"
sexp-diary-entry-symbol
(
calendar-read
"Repeat every how many days: "
'
(
lambda
(
x
)
(
>
x
0
)))
(
calendar-date-string
(
or
(
calendar-cursor-to-date
)
(
error
"Cursor is not on a date!"
))
nil
t
))
arg
))
(
let*
((
calendar-date-display-form
(
if
european-calendar-style
'
(
day
" "
month
" "
year
)
'
(
month
" "
day
" "
year
))))
(
make-diary-entry
(
format
"%s(diary-cyclic %d %s)"
sexp-diary-entry-symbol
(
calendar-read
"Repeat every how many days: "
'
(
lambda
(
x
)
(
>
x
0
)))
(
calendar-date-string
(
or
(
calendar-cursor-to-date
)
(
error
"Cursor is not on a date!"
))
nil
t
))
arg
)))
(
defun
insert-hebrew-diary-entry
(
arg
)
"Insert a diary 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