aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--lisp/calendar/cal-bahai.el5
-rw-r--r--lisp/calendar/cal-china.el8
-rw-r--r--lisp/calendar/cal-coptic.el8
-rw-r--r--lisp/calendar/cal-french.el8
-rw-r--r--lisp/calendar/cal-hebrew.el8
-rw-r--r--lisp/calendar/cal-islam.el8
-rw-r--r--lisp/calendar/cal-iso.el7
-rw-r--r--lisp/calendar/cal-julian.el8
-rw-r--r--lisp/calendar/cal-mayan.el8
-rw-r--r--lisp/calendar/cal-persia.el8
-rw-r--r--lisp/calendar/lunar.el9
11 files changed, 63 insertions, 22 deletions
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 8aa1eed4a5d..5a8ee77b7f6 100644
--- a/lisp/calendar/cal-bahai.el
+++ b/lisp/calendar/cal-bahai.el
@@ -313,10 +313,13 @@ Prefix argument ARG will make the entry nonmarking."
313 diary-bahai-entry-symbol 313 diary-bahai-entry-symbol
314 'calendar-bahai-from-absolute)) 314 'calendar-bahai-from-absolute))
315 315
316;; The function below is designed to be used in sexp diary entries,
317;; and may be present in users' diary files, so suppress the warning
318;; about this prefix-less dynamic variable. It's called from
319;; `diary-list-sexp-entries', which binds the variable.
316(with-suppressed-warnings ((lexical date)) 320(with-suppressed-warnings ((lexical date))
317 (defvar date)) 321 (defvar date))
318 322
319;; To be called from diary-list-sexp-entries, where DATE is bound.
320;;;###diary-autoload 323;;;###diary-autoload
321(defun diary-bahai-date () 324(defun diary-bahai-date ()
322 "Bahá’í calendar equivalent of date diary entry." 325 "Bahá’í calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el
index c006765a093..d2d086be97a 100644
--- a/lisp/calendar/cal-china.el
+++ b/lisp/calendar/cal-china.el
@@ -632,9 +632,13 @@ Echo Chinese date unless NOECHO is non-nil."
632 (calendar-chinese-to-absolute date))) 632 (calendar-chinese-to-absolute date)))
633 (or noecho (calendar-chinese-print-date))) 633 (or noecho (calendar-chinese-print-date)))
634 634
635(defvar date) 635;; The function below is designed to be used in sexp diary entries,
636;; and may be present in users' diary files, so suppress the warning
637;; about this prefix-less dynamic variable. It's called from
638;; `diary-list-sexp-entries', which binds the variable.
639(with-suppressed-warnings ((lexical date))
640 (defvar date))
636 641
637;; To be called from diary-list-sexp-entries, where DATE is bound.
638;;;###diary-autoload 642;;;###diary-autoload
639(defun diary-chinese-date () 643(defun diary-chinese-date ()
640 "Chinese calendar equivalent of date diary entry." 644 "Chinese calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index c05f6d329a1..8d223590875 100644
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -168,9 +168,13 @@ Echo Coptic date unless NOECHO is t."
168 (or noecho (calendar-coptic-print-date))) 168 (or noecho (calendar-coptic-print-date)))
169 169
170 170
171(defvar date) 171;; The function below is designed to be used in sexp diary entries,
172;; and may be present in users' diary files, so suppress the warning
173;; about this prefix-less dynamic variable. It's called from
174;; `diary-list-sexp-entries', which binds the variable.
175(with-suppressed-warnings ((lexical date))
176 (defvar date))
172 177
173;; To be called from diary-list-sexp-entries, where DATE is bound.
174;;;###diary-autoload 178;;;###diary-autoload
175(defun diary-coptic-date () 179(defun diary-coptic-date ()
176 "Coptic calendar equivalent of date diary entry." 180 "Coptic calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 2c60602b13b..0d4b2f2e390 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -243,9 +243,13 @@ Echo French Revolutionary date unless NOECHO is non-nil."
243 (calendar-french-to-absolute date))) 243 (calendar-french-to-absolute date)))
244 (or noecho (calendar-french-print-date))) 244 (or noecho (calendar-french-print-date)))
245 245
246(defvar date) 246;; The function below is designed to be used in sexp diary entries,
247;; and may be present in users' diary files, so suppress the warning
248;; about this prefix-less dynamic variable. It's called from
249;; `diary-list-sexp-entries', which binds the variable.
250(with-suppressed-warnings ((lexical date))
251 (defvar date))
247 252
248;; To be called from diary-list-sexp-entries, where DATE is bound.
249;;;###diary-autoload 253;;;###diary-autoload
250(defun diary-french-date () 254(defun diary-french-date ()
251 "French calendar equivalent of date diary entry." 255 "French calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el
index 8268335fc6f..b6b626dc2f5 100644
--- a/lisp/calendar/cal-hebrew.el
+++ b/lisp/calendar/cal-hebrew.el
@@ -748,9 +748,13 @@ from the cursor position."
748 ;; or the corresponding day in years without that date. 748 ;; or the corresponding day in years without that date.
749 (+ (calendar-hebrew-to-absolute (list b-month 1 year)) b-day -1)))) 749 (+ (calendar-hebrew-to-absolute (list b-month 1 year)) b-day -1))))
750 750
751(defvar date) 751;; The function below is designed to be used in sexp diary entries,
752;; and may be present in users' diary files, so suppress the warning
753;; about this prefix-less dynamic variable. It's called from
754;; `diary-list-sexp-entries', which binds the variable.
755(with-suppressed-warnings ((lexical date))
756 (defvar date))
752 757
753;; To be called from diary-list-sexp-entries, where DATE is bound.
754;;;###diary-autoload 758;;;###diary-autoload
755(defun diary-hebrew-date () 759(defun diary-hebrew-date ()
756 "Hebrew calendar equivalent of date diary entry." 760 "Hebrew calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el
index 008f183e5d0..81ac4d0332b 100644
--- a/lisp/calendar/cal-islam.el
+++ b/lisp/calendar/cal-islam.el
@@ -305,9 +305,13 @@ Prefix argument ARG makes the entry nonmarking."
305 diary-islamic-entry-symbol 305 diary-islamic-entry-symbol
306 'calendar-islamic-from-absolute)) 306 'calendar-islamic-from-absolute))
307 307
308(defvar date) 308;; The function below is designed to be used in sexp diary entries,
309;; and may be present in users' diary files, so suppress the warning
310;; about this prefix-less dynamic variable. It's called from
311;; `diary-list-sexp-entries', which binds the variable.
312(with-suppressed-warnings ((lexical date))
313 (defvar date))
309 314
310;; To be called from diary-sexp-entry, where DATE, ENTRY are bound.
311;;;###diary-autoload 315;;;###diary-autoload
312(defun diary-islamic-date () 316(defun diary-islamic-date ()
313 "Islamic calendar equivalent of date diary entry." 317 "Islamic calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-iso.el b/lisp/calendar/cal-iso.el
index 3611091bede..884c15db6c7 100644
--- a/lisp/calendar/cal-iso.el
+++ b/lisp/calendar/cal-iso.el
@@ -129,9 +129,12 @@ Interactively, goes to the first day of the specified week."
129 (calendar-iso-to-absolute date))) 129 (calendar-iso-to-absolute date)))
130 (or noecho (calendar-iso-print-date))) 130 (or noecho (calendar-iso-print-date)))
131 131
132(defvar date) 132;; The function below is designed to be used from sexp diary entries,
133;; and may be present in users' diary files, so suppress the warning
134;; about this prefix-less dynamic variable.
135(with-suppressed-warnings ((lexical date))
136 (defvar date))
133 137
134;; To be called from diary-list-sexp-entries, where DATE is bound.
135;;;###diary-autoload 138;;;###diary-autoload
136(defun diary-iso-date () 139(defun diary-iso-date ()
137 "ISO calendar equivalent of date diary entry." 140 "ISO calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el
index 1f2dc09aca2..d912f8323c8 100644
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -183,9 +183,13 @@ Echo astronomical (Julian) day number unless NOECHO is non-nil."
183 (or noecho (calendar-astro-print-day-number))) 183 (or noecho (calendar-astro-print-day-number)))
184 184
185 185
186(defvar date) 186;; The function below is designed to be used in sexp diary entries,
187;; and may be present in users' diary files, so suppress the warning
188;; about this prefix-less dynamic variable. It's called from
189;; `diary-list-sexp-entries', which binds the variable.
190(with-suppressed-warnings ((lexical date))
191 (defvar date))
187 192
188;; To be called from diary-list-sexp-entries, where DATE is bound.
189;;;###diary-autoload 193;;;###diary-autoload
190(defun diary-julian-date () 194(defun diary-julian-date ()
191 "Julian calendar equivalent of date diary entry." 195 "Julian calendar equivalent of date diary entry."
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index e1377347bb9..cda2c888f22 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -353,9 +353,13 @@ Echo Mayan date unless NOECHO is non-nil."
353 (calendar-mayan-long-count-to-absolute date))) 353 (calendar-mayan-long-count-to-absolute date)))
354 (or noecho (calendar-mayan-print-date))) 354 (or noecho (calendar-mayan-print-date)))
355 355
356(defvar date) 356;; The function below is designed to be used in sexp diary entries,
357;; and may be present in users' diary files, so suppress the warning
358;; about this prefix-less dynamic variable. It's called from
359;; `diary-list-sexp-entries', which binds the variable.
360(with-suppressed-warnings ((lexical date))
361 (defvar date))
357 362
358;; To be called from diary-list-sexp-entries, where DATE is bound.
359;;;###diary-autoload 363;;;###diary-autoload
360(defun diary-mayan-date () 364(defun diary-mayan-date ()
361 "Show the Mayan long count, haab, and tzolkin dates as a diary entry." 365 "Show the Mayan long count, haab, and tzolkin dates as a diary entry."
diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 2cb6466335c..897208fd2b4 100644
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -196,9 +196,13 @@ Echo Persian date unless NOECHO is non-nil."
196 (or noecho (calendar-persian-print-date))) 196 (or noecho (calendar-persian-print-date)))
197 197
198 198
199(defvar date) 199;; The function below is designed to be used in sexp diary entries,
200;; and may be present in users' diary files, so suppress the warning
201;; about this prefix-less dynamic variable. It's called from
202;; `diary-list-sexp-entries', which binds the variable.
203(with-suppressed-warnings ((lexical date))
204 (defvar date))
200 205
201;; To be called from diary-list-sexp-entries, where DATE is bound.
202;;;###diary-autoload 206;;;###diary-autoload
203(defun diary-persian-date () 207(defun diary-persian-date ()
204 "Persian calendar equivalent of date diary entry." 208 "Persian calendar equivalent of date diary entry."
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el
index 7ddb93967fb..1cdcc97f36a 100644
--- a/lisp/calendar/lunar.el
+++ b/lisp/calendar/lunar.el
@@ -241,9 +241,12 @@ This function is suitable for execution in an init file."
241 (displayed-year (calendar-extract-year date))) 241 (displayed-year (calendar-extract-year date)))
242 (calendar-lunar-phases)))) 242 (calendar-lunar-phases))))
243 243
244(defvar date) 244;; The function below is designed to be used in sexp diary entries,
245 245;; and may be present in users' diary files, so suppress the warning
246;; To be called from diary-list-sexp-entries, where DATE is bound. 246;; about this prefix-less dynamic variable. It's called from
247;; `diary-list-sexp-entries', which binds the variable.
248(with-suppressed-warnings ((lexical date))
249 (defvar date))
247 250
248;;;###diary-autoload 251;;;###diary-autoload
249(defun diary-lunar-phases (&optional mark) 252(defun diary-lunar-phases (&optional mark)
generated by cgit v1.2.1 (git 2.18.0) at 2026-02-09 04:10:15 +0000