mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-05 08:53:45 +00:00
(calendar-cursor-to-date): Handle case where event-start is nil.
This commit is contained in:
parent
2eff62d6fa
commit
2b11fcd531
@ -48,6 +48,10 @@
|
||||
Add doc strings.
|
||||
(cal-menu-context-mouse-menu): Add some :keys.
|
||||
|
||||
* calendar/cal-menu.el (cal-menu-moon-menu): Add sunrise/sunset.
|
||||
* calendar/calendar.el (calendar-cursor-to-date): Handle case where
|
||||
event-start is nil.
|
||||
|
||||
2008-06-26 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* minibuffer.el (completion-basic-try-completion): Use the text after
|
||||
|
@ -1787,7 +1787,8 @@ use instead of point."
|
||||
(if event (window-buffer (posn-window (event-start event)))
|
||||
(current-buffer))
|
||||
(save-excursion
|
||||
(if event (goto-char (posn-point (event-start event))))
|
||||
(and event (setq event (event-start event))
|
||||
(goto-char (posn-point event)))
|
||||
(let* ((segment (calendar-column-to-segment))
|
||||
(month (% (+ displayed-month (1- segment)) 12)))
|
||||
;; Call with point on either of the two digits in a 2-digit date,
|
||||
|
Loading…
Reference in New Issue
Block a user