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
c645b7bb
Commit
c645b7bb
authored
Mar 08, 2008
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Unquote lambda functions.
parent
86cef613
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
lisp/calendar/cal-hebrew.el
lisp/calendar/cal-hebrew.el
+8
-8
No files found.
lisp/calendar/cal-hebrew.el
View file @
c645b7bb
...
...
@@ -227,7 +227,7 @@ Driven by the variable `calendar-date-display-form'."
(
let*
((
today
(
calendar-current-date
))
(
year
(
calendar-read
"Hebrew calendar year (>3760): "
'
(
lambda
(
x
)
(
>
x
3760
))
(
lambda
(
x
)
(
>
x
3760
))
(
int-to-string
(
extract-calendar-year
(
calendar-hebrew-from-absolute
...
...
@@ -241,7 +241,7 @@ Driven by the variable `calendar-date-display-form'."
"Hebrew calendar month name: "
(
mapcar
'list
(
append
month-array
nil
))
(
if
(
=
year
3761
)
'
(
lambda
(
x
)
(
lambda
(
x
)
(
let
((
m
(
cdr
(
assoc-string
(
car
x
)
...
...
@@ -261,7 +261,7 @@ Driven by the variable `calendar-date-display-form'."
(
day
(
calendar-read
(
format
"Hebrew calendar day (%d-%d): "
first
last
)
'
(
lambda
(
x
)
(
and
(
<=
first
x
)
(
<=
x
last
))))))
(
lambda
(
x
)
(
and
(
<=
first
x
)
(
<=
x
last
))))))
(
list
(
list
month
day
year
))))
(
calendar-goto-date
(
calendar-gregorian-from-absolute
(
calendar-absolute-from-hebrew
date
)))
...
...
@@ -848,7 +848,7 @@ from the cursor position."
(
let*
((
today
(
calendar-current-date
))
(
year
(
calendar-read
"Year of death (>0): "
'
(
lambda
(
x
)
(
>
x
0
))
(
lambda
(
x
)
(
>
x
0
))
(
int-to-string
(
extract-calendar-year
today
))))
(
month-array
calendar-month-name-array
)
(
completion-ignore-case
t
)
...
...
@@ -861,18 +861,18 @@ from the cursor position."
(
last
(
calendar-last-day-of-month
month
year
))
(
day
(
calendar-read
(
format
"Day of death (1-%d): "
last
)
'
(
lambda
(
x
)
(
and
(
<
0
x
)
(
<=
x
last
))))))
(
lambda
(
x
)
(
and
(
<
0
x
)
(
<=
x
last
))))))
(
list
month
day
year
))))
(
death-year
(
extract-calendar-year
death-date
))
(
start-year
(
calendar-read
(
format
"Starting year of Yahrzeit table (>%d): "
death-year
)
'
(
lambda
(
x
)
(
>
x
death-year
))
(
lambda
(
x
)
(
>
x
death-year
))
(
int-to-string
(
1+
death-year
))))
(
end-year
(
calendar-read
(
format
"Ending year of Yahrzeit table (>=%d): "
start-year
)
'
(
lambda
(
x
)
(
>=
x
start-year
)))))
(
lambda
(
x
)
(
>=
x
start-year
)))))
(
list
death-date
start-year
end-year
)))
(
message
"Computing yahrzeits..."
)
(
let*
((
yahrzeit-buffer
"*Yahrzeits*"
)
...
...
@@ -1218,5 +1218,5 @@ have 30 days), and has Passover start on Tuesday.")
(
provide
'cal-hebrew
)
;;
;
arch-tag: aaab6718-7712-42ac-a32d-28fe1f944f3c
;; arch-tag: aaab6718-7712-42ac-a32d-28fe1f944f3c
;;; cal-hebrew.el ends here
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