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
d347df4f
Commit
d347df4f
authored
Apr 05, 2008
by
Glenn Morris
Browse files
(diary-hebrew-sabbath-candles): Simplify.
parent
a9df811d
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
+1
-0
lisp/calendar/cal-hebrew.el
lisp/calendar/cal-hebrew.el
+8
-8
No files found.
lisp/ChangeLog
View file @
d347df4f
...
...
@@ -45,6 +45,7 @@
* calendar/cal-hebrew.el (diary-hebrew-sabbath-candles-minutes)
(diary-hebrew-sabbath-candles): Move here from solar.el and rename.
Doc fix. Keep old name as alias.
(diary-hebrew-sabbath-candles): Simplify.
(solar-setup, solar-sunrise-sunset, calendar-latitude)
(calendar-longitude, calendar-time-zone): Declare for compiler.
* calendar/diary-lib.el (list-sexp-diary-entries): Update doc for
...
...
lisp/calendar/cal-hebrew.el
View file @
d347df4f
...
...
@@ -1145,15 +1145,15 @@ use when highlighting the day in the calendar."
(
or
(
and
calendar-latitude
calendar-longitude
calendar-time-zone
)
(
solar-setup
))
(
if
(
=
(
%
(
calendar-absolute-from-gregorian
date
)
7
)
5
)
; Friday
(
let*
((
sunset
(
cadr
(
solar-sunrise-sunset
date
)))
(
light
(
if
sunset
(
cons
(
-
(
car
sunset
)
(
/
diary-hebrew-sabbath-candles-minutes
60.0
))
(
cdr
sunset
)))))
(
let
((
sunset
(
cadr
(
solar-sunrise-sunset
date
))))
(
if
sunset
(
cons
mark
(
format
"%s Sabbath candle lighting"
(
apply
'solar-time-string
light
)))))))
(
cons
mark
(
format
"%s Sabbath candle lighting"
(
apply
'solar-time-string
(
cons
(
-
(
car
sunset
)
(
/
diary-hebrew-sabbath-candles-minutes
60.0
))
(
cdr
sunset
)))))))))
;;;###diary-autoload
(
define-obsolete-function-alias
'diary-sabbath-candles
...
...
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