[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v |
Date: |
Fri, 28 Mar 2008 02:45:58 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/28 02:45:58
Index: cal-move.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-move.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- cal-move.el 14 Mar 2008 06:44:47 -0000 1.25
+++ cal-move.el 28 Mar 2008 02:45:58 -0000 1.26
@@ -39,9 +39,8 @@
"Move the cursor to the closest date.
The position of the cursor is unchanged if it is already on a date.
Returns the list (month day year) giving the cursor position."
- (let ((date (calendar-cursor-to-date))
- (column (current-column)))
- (or date
+ (or (calendar-cursor-to-date)
+ (let ((column (current-column)))
(when (> 3 (count-lines (point-min) (point)))
(goto-line 3)
(move-to-column column))
@@ -64,10 +63,9 @@
;;;###cal-autoload
(defun calendar-cursor-to-visible-date (date)
"Move the cursor to DATE that is on the screen."
- (let* ((month (extract-calendar-month date))
+ (let ((month (extract-calendar-month date))
(day (extract-calendar-day date))
- (year (extract-calendar-year date))
- (first-of-month-weekday (calendar-day-of-week (list month 1 year))))
+ (year (extract-calendar-year date)))
(goto-line (+ 3
(/ (+ day -1
(mod
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/14
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-move.el,v, Glenn Morris, 2008/03/31