Fix calendar-mark-1

* calendar/diary-lib.el (calendar-mark-1): Fix thinko.