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
c3efd659
Commit
c3efd659
authored
Mar 10, 2008
by
Glenn Morris
Browse files
(date, entry, number): Move declarations to where they are needed.
parent
c9218852
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
3 deletions
+9
-3
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/calendar/cal-hebrew.el
lisp/calendar/cal-hebrew.el
+6
-3
No files found.
lisp/ChangeLog
View file @
c3efd659
2008-03-10 Glenn Morris <rgm@gnu.org>
* calendar/cal-hebrew.el (date, entry, number): Move declarations
to where they are needed.
* calendar/calendar.el (diary-file, hebrew-holidays-1)
(hebrew-holidays-2, hebrew-holidays-3, hebrew-holidays-4)
(calendar, calendar-basic-setup, calendar-mode-map, calendar-set-mark)
...
...
lisp/calendar/cal-hebrew.el
View file @
c3efd659
...
...
@@ -37,11 +37,8 @@
;;; Code:
(
defvar
date
)
(
defvar
displayed-month
)
(
defvar
displayed-year
)
(
defvar
entry
)
(
defvar
number
)
(
defvar
original-date
)
(
require
'calendar
)
...
...
@@ -509,6 +506,8 @@ nil if it is not visible in the current calendar window."
(
declare-function
add-to-diary-list
"diary-lib"
(
date
string
specifier
&optional
marker
globcolor
literal
))
(
defvar
number
)
; from diary-list-entries
(
defun
list-hebrew-diary-entries
()
"Add any Hebrew date entries from the diary file to `diary-entries-list'.
Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol'
...
...
@@ -912,6 +911,8 @@ from the cursor position."
(
display-buffer
yahrzeit-buffer
)
(
message
"Computing Yahrzeits...done"
)))
(
defvar
date
)
(
defun
diary-hebrew-date
()
"Hebrew calendar equivalent of date diary entry."
(
format
"Hebrew date (until sunset): %s"
(
calendar-hebrew-date-string
date
)))
...
...
@@ -942,6 +943,8 @@ use when highlighting the day in the calendar."
(
format
" and %d day%s"
day
(
if
(
=
day
1
)
""
"s"
))))))))))
(
defvar
entry
)
(
defun
diary-yahrzeit
(
death-month
death-day
death-year
&optional
mark
)
"Yahrzeit diary entry--entry applies if date is Yahrzeit or the day before.
Parameters are DEATH-MONTH, DEATH-DAY, DEATH-YEAR; the diary entry is assumed
...
...
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