diff options
Diffstat (limited to 'lisp/calendar/lunar.el')
-rw-r--r-- | lisp/calendar/lunar.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index 5424551e246..1cdcc97f36a 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -4,7 +4,7 @@ ;; Foundation, Inc. ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> -;; Maintainer: Glenn Morris <rgm@gnu.org> +;; Maintainer: emacs-devel@gnu.org ;; Keywords: calendar ;; Human-Keywords: moon, lunar phases, calendar, diary ;; Package: calendar @@ -241,9 +241,12 @@ This function is suitable for execution in an init file." (displayed-year (calendar-extract-year date))) (calendar-lunar-phases)))) -(defvar date) - -;; To be called from diary-list-sexp-entries, where DATE is bound. +;; The function below is designed to be used in sexp diary entries, +;; and may be present in users' diary files, so suppress the warning +;; about this prefix-less dynamic variable. It's called from +;; `diary-list-sexp-entries', which binds the variable. +(with-suppressed-warnings ((lexical date)) + (defvar date)) ;;;###diary-autoload (defun diary-lunar-phases (&optional mark) |