mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-06 08:54:05 +00:00
Code Issues Releases Activity

(calendar-cursor-to-date): Handle case where event-start is nil.

Browse Source
This commit is contained in:
Glenn Morris 2008-06-26 07:08:01 +00:00
parent 2eff62d6fa
commit 2b11fcd531
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -48,6 +48,10 @@
Add doc strings. Add doc strings.
(cal-menu-context-mouse-menu): Add some :keys. (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> 2008-06-26 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion-basic-try-completion): Use the text after * minibuffer.el (completion-basic-try-completion): Use the text after

3
lisp/calendar/calendar.el
View File

@ -1787,7 +1787,8 @@ use instead of point."
(if event (window-buffer (posn-window (event-start event))) (if event (window-buffer (posn-window (event-start event)))
(current-buffer)) (current-buffer))
(save-excursion (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)) (let* ((segment (calendar-column-to-segment))
(month (% (+ displayed-month (1- segment)) 12))) (month (% (+ displayed-month (1- segment)) 12)))
;; Call with point on either of the two digits in a 2-digit date, ;; Call with point on either of the two digits in a 2-digit date,