# HG changeset patch # User Edward M. Reingold # Date 783476799 0 # Node ID 45559582aa9db320c1a2192df6c5d071afcf7ba5 # Parent 5586959f339313b1ffb384ff42f616c32fd29bcf Fix use of noday option for calendar-read-date. diff -r 5586959f3393 -r 45559582aa9d lisp/calendar/lunar.el --- a/lisp/calendar/lunar.el Sun Oct 30 00:25:33 1994 +0000 +++ b/lisp/calendar/lunar.el Sun Oct 30 00:26:39 1994 +0000 @@ -223,8 +223,7 @@ This function is suitable for execution in a .emacs file." (interactive "P") (save-excursion - (let* ((completion-ignore-case t) - (date (if arg + (let* ((date (if arg (calendar-read-date t) (calendar-current-date))) (displayed-month (extract-calendar-month date))