Mercurial > emacs
changeset 104390:c6ae8d43800c
Use forward-line, not goto-line.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 21 Aug 2009 07:40:24 +0000 |
| parents | 03262c903016 |
| children | 0642b524d60c |
| files | lisp/ChangeLog lisp/play/5x5.el lisp/play/decipher.el lisp/play/gomoku.el lisp/play/landmark.el lisp/play/mpuz.el |
| diffstat | 6 files changed, 22 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/ChangeLog Fri Aug 21 07:40:24 2009 +0000 @@ -26,7 +26,14 @@ Use help-print-return-message rather than the now obsolete alias. * calendar/cal-move.el (calendar-cursor-to-nearest-date) - (calendar-cursor-to-visible-date): Use forward-line, not goto-line. + (calendar-cursor-to-visible-date): + * play/5x5.el (5x5-position-cursor): + * play/decipher.el (decipher): + * play/gomoku.el (gomoku-goto-xy): + * play/landmark.el (lm-goto-xy): + * play/mpuz.el (mpuz-paint-errors, mpuz-paint-statistics) + (mpuz-paint-digit): + Use forward-line, not goto-line. * mail/rmail.el (rmail-obsolete): Delete custom group. (rmail-pop-password, rmail-pop-password-required): Make into aliases.
--- a/lisp/play/5x5.el Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/play/5x5.el Fri Aug 21 07:40:24 2009 +0000 @@ -300,7 +300,8 @@ (defun 5x5-position-cursor () "Position the cursor on the grid." - (goto-line (+ (* 5x5-y-pos 5x5-y-scale) 2)) + (goto-char (point-min)) + (forward-line (1+ (* 5x5-y-pos 5x5-y-scale))) (goto-char (+ (point) (* 5x5-x-pos 5x5-x-scale) (+ 5x5-x-pos 1) 1))) (defun 5x5-made-move ()
--- a/lisp/play/decipher.el Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/play/decipher.el Fri Aug 21 07:40:24 2009 +0000 @@ -274,7 +274,8 @@ (insert ">\n"))))) ;Mark plaintext line (delete-blank-lines) ;Remove any blank lines (delete-blank-lines)) ; at end of buffer - (goto-line 4) + (goto-char (point-min)) + (forward-line 3) (decipher-mode)) ;;;###autoload
--- a/lisp/play/gomoku.el Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/play/gomoku.el Fri Aug 21 07:40:24 2009 +0000 @@ -989,7 +989,8 @@ (defun gomoku-goto-xy (x y) "Move point to square at X, Y coords." (let ((inhibit-point-motion-hooks t)) - (goto-line (+ 1 gomoku-y-offset (* gomoku-square-height (1- y))))) + (goto-char (point-min)) + (forward-line (+ gomoku-y-offset (* gomoku-square-height (1- y))))) (move-to-column (+ gomoku-x-offset (* gomoku-square-width (1- x))))) (defun gomoku-plot-square (square value)
--- a/lisp/play/landmark.el Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/play/landmark.el Fri Aug 21 07:40:24 2009 +0000 @@ -876,7 +876,8 @@ (defun lm-goto-xy (x y) "Move point to square at X, Y coords." (let ((inhibit-point-motion-hooks t)) - (goto-line (+ 1 lm-y-offset (* lm-square-height (1- y))))) + (goto-char (point-min)) + (forward-line (+ lm-y-offset (* lm-square-height (1- y))))) (move-to-column (+ lm-x-offset (* lm-square-width (1- x))))) (defun lm-plot-square (square value)
--- a/lisp/play/mpuz.el Fri Aug 21 07:36:41 2009 +0000 +++ b/lisp/play/mpuz.el Fri Aug 21 07:40:24 2009 +0000 @@ -320,12 +320,14 @@ (defun mpuz-paint-errors () "Paint error count on the puzzle screen." (mpuz-switch-to-window) - (goto-line 3) + (goto-char (point-min)) + (forward-line 2) (mpuz-paint-number (prin1-to-string mpuz-nb-errors))) (defun mpuz-paint-statistics () "Paint statistics about previous games on the puzzle screen." - (goto-line 7) + (goto-char (point-min)) + (forward-line 6) (mpuz-paint-number (prin1-to-string mpuz-nb-completed-games)) (mpuz-paint-number (format "%.2f" @@ -352,7 +354,8 @@ ('mpuz-unsolved)))) buffer-read-only) (mapc (lambda (square) - (goto-line (car square)) ; line before column! + (goto-char (point-min)) + (forward-line (1- (car square))) ; line before column! (move-to-column (cdr square)) (insert char) (set-text-properties (1- (point)) (point) face)