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
9b6c7da9
Commit
9b6c7da9
authored
Mar 08, 2008
by
Glenn Morris
Browse files
(calendar-bahai-prompt-for-date, calendar-bahai-mark-date-pattern):
Use zerop.
parent
d7af270b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
3 deletions
+19
-3
lisp/ChangeLog
lisp/ChangeLog
+16
-0
lisp/calendar/cal-bahai.el
lisp/calendar/cal-bahai.el
+3
-3
No files found.
lisp/ChangeLog
View file @
9b6c7da9
...
...
@@ -2,14 +2,30 @@
* calendar/appt.el (appt): Move custom group here from calendar.el.
* calendar/cal-bahai.el (calendar-bahai-prompt-for-date)
(calendar-bahai-mark-date-pattern):
* calendar/cal-hebrew.el (mark-hebrew-calendar-date-pattern):
* calendar/cal-islam.el (mark-islamic-calendar-date-pattern):
* calendar/cal-julian.el (calendar-absolute-from-julian):
* calendar/cal-persia.el (persian-prompt-for-date): Use zerop.
* calendar/cal-china.el (chinese-calendar): Move custom group here from
calendar.el.
(chinese-calendar-celestial-stem, chinese-calendar-terrestrial-branch):
Make constants.
* calendar/cal-coptic.el (coptic-name): Add doc string.
* calendar/cal-persia.el (persian-calendar-month-name-array)
(persian-calendar-epoch): Make constants.
* calendar/cal-tex.el (calendar-tex): Move custom group here from
calendar.el.
* calendar/cal-x.el (diary-frame-parameters)
(calendar-frame-parameters, calendar-and-diary-frame-parameters)
(calendar-after-frame-setup-hooks): Make defcustoms.
* calendar/cal-loaddefs.el: New file.
* calendar/cal-bahai.el, calendar/cal-china.el, calendar/cal-coptic.el:
...
...
lisp/calendar/cal-bahai.el
View file @
9b6c7da9
...
...
@@ -165,7 +165,7 @@ Echo Bahá'í date unless NOECHO is t."
(
let*
((
today
(
calendar-current-date
))
(
year
(
calendar-read
"Bahá'í calendar year (not 0): "
(
lambda
(
x
)
(
/=
x
0
))
(
lambda
(
x
)
(
not
(
zerop
x
)
))
(
int-to-string
(
extract-calendar-year
(
calendar-bahai-from-absolute
...
...
@@ -418,8 +418,8 @@ nongregorian-diary-marking-hook."
A value of 0 in any position is a wildcard."
(
save-excursion
(
set-buffer
calendar-buffer
)
(
if
(
and
(
/=
0
month
)
(
/=
0
day
))
(
if
(
/=
0
year
)
(
if
(
and
(
not
(
zerop
month
)
)
(
not
(
zerop
day
))
)
(
if
(
not
(
zerop
year
)
)
;; Fully specified Bahá'í date.
(
let
((
date
(
calendar-gregorian-from-absolute
(
calendar-absolute-from-bahai
...
...
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