Mercurial > emacs
changeset 104385:bc2e79adb401
(calendar-cursor-to-nearest-date, calendar-cursor-to-visible-date):
Use forward-line, not goto-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 21 Aug 2009 07:11:24 +0000 |
| parents | 9a190dac8f18 |
| children | 2e0765155e47 |
| files | lisp/ChangeLog lisp/calendar/cal-move.el |
| diffstat | 2 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Aug 21 07:02:28 2009 +0000 +++ b/lisp/ChangeLog Fri Aug 21 07:11:24 2009 +0000 @@ -1,5 +1,8 @@ 2009-08-21 Glenn Morris <rgm@gnu.org> + * calendar/cal-move.el (calendar-cursor-to-nearest-date) + (calendar-cursor-to-visible-date): Use forward-line, not goto-line. + * mail/rmail.el (rmail-obsolete): Delete custom group. (rmail-pop-password, rmail-pop-password-required): Make into aliases. (rmail-remote-password, rmail-remote-password-required):
--- a/lisp/calendar/cal-move.el Fri Aug 21 07:02:28 2009 +0000 +++ b/lisp/calendar/cal-move.el Fri Aug 21 07:11:24 2009 +0000 @@ -47,7 +47,8 @@ (last (nth 2 edges)) (right (nth 3 edges))) (when (< (count-lines (point-min) (point)) calendar-first-date-row) - (goto-line calendar-first-date-row) + (goto-char (point-min)) + (forward-line (1- calendar-first-date-row)) (move-to-column col)) ;; The date positions are fixed and computable, but searching ;; is probably more flexible. Need to consider blank days at @@ -76,13 +77,14 @@ (let ((month (calendar-extract-month date)) (day (calendar-extract-day date)) (year (calendar-extract-year date))) - (goto-line (+ calendar-first-date-row - (/ (+ day -1 - (mod - (- (calendar-day-of-week (list month 1 year)) - calendar-week-start-day) - 7)) - 7))) + (goto-char (point-min)) + (forward-line (+ calendar-first-date-row -1 + (/ (+ day -1 + (mod + (- (calendar-day-of-week (list month 1 year)) + calendar-week-start-day) + 7)) + 7))) (move-to-column (+ calendar-left-margin (1- calendar-day-digit-width) (* calendar-month-width (1+ (calendar-interval