HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f971f8b
)
(calendar-scroll-left): Handle case when event-start is nil.
author
Glenn Morris
<rgm@gnu.org>
Thu, 24 Apr 2008 05:43:27 +0000
(
05:43
+0000)
committer
Glenn Morris
<rgm@gnu.org>
Thu, 24 Apr 2008 05:43:27 +0000
(
05:43
+0000)
lisp/calendar/cal-move.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/calendar/cal-move.el
b/lisp/calendar/cal-move.el
index
cd59ed7
..
1eeea1a
100644
(file)
--- a/
lisp/calendar/cal-move.el
+++ b/
lisp/calendar/cal-move.el
@@
-144,7
+144,8
@@
EVENT is an event like `last-nonmenu-event'."
last-nonmenu-event))
(unless arg (setq arg 1))
(save-selected-window
- (select-window (posn-window (event-start event)))
+ ;; Nil if called from menu-bar.
+ (if (setq event (event-start event)) (select-window (posn-window event)))
(calendar-cursor-to-nearest-date)
(unless (zerop arg)
(let ((old-date (calendar-cursor-to-date))