[Emacs-diffs] emacs/lisp ChangeLog calendar/cal-move.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/08/21 07:11:27

Modified files:
        lisp           : ChangeLog 
        lisp/calendar  : cal-move.el 

Log message:
        (calendar-cursor-to-nearest-date, calendar-cursor-to-visible-date):
        Use forward-line, not goto-line.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15982&r2=1.15983
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/cal-move.el?cvsroot=emacs&r1=1.36&r2=1.37

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15982
retrieving revision 1.15983
diff -u -b -r1.15982 -r1.15983
--- ChangeLog   21 Aug 2009 07:02:28 -0000      1.15982
+++ ChangeLog   21 Aug 2009 07:11:24 -0000      1.15983
@@ -1,5 +1,8 @@
 2009-08-21  Glenn Morris  <address@hidden>
 
+       * 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):

Index: calendar/cal-move.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-move.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- calendar/cal-move.el        21 May 2009 04:40:31 -0000      1.36
+++ calendar/cal-move.el        21 Aug 2009 07:11:27 -0000      1.37
@@ -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,7 +77,8 @@
   (let ((month (calendar-extract-month date))
         (day (calendar-extract-day date))
         (year (calendar-extract-year date)))
-    (goto-line (+ calendar-first-date-row
+    (goto-char (point-min))
+    (forward-line (+ calendar-first-date-row -1
                   (/ (+ day  -1
                         (mod
                          (- (calendar-day-of-week (list month 1 year))