Commit a8ab722f authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-cursor-to-nearest-date, calendar-cursor-to-visible-date):

Use forward-line, not goto-line.
parent d6261cc1
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):
......
......@@ -47,7 +47,8 @@ Returns the list (month day year) giving the cursor position."
(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 @@ Returns the list (month day year) giving the cursor position."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment