[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog play/5x5.el play/decipher....
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog play/5x5.el play/decipher.... |
Date: |
Fri, 21 Aug 2009 07:40:30 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/21 07:40:29
Modified files:
lisp : ChangeLog
lisp/play : 5x5.el decipher.el gomoku.el landmark.el
mpuz.el
Log message:
Use forward-line, not goto-line.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15987&r2=1.15988
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/5x5.el?cvsroot=emacs&r1=1.27&r2=1.28
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/decipher.el?cvsroot=emacs&r1=1.35&r2=1.36
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/gomoku.el?cvsroot=emacs&r1=1.56&r2=1.57
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/landmark.el?cvsroot=emacs&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/mpuz.el?cvsroot=emacs&r1=1.43&r2=1.44
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15987
retrieving revision 1.15988
diff -u -b -r1.15987 -r1.15988
--- ChangeLog 21 Aug 2009 07:36:41 -0000 1.15987
+++ ChangeLog 21 Aug 2009 07:40:24 -0000 1.15988
@@ -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.
Index: play/5x5.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/5x5.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- play/5x5.el 5 Jan 2009 03:23:05 -0000 1.27
+++ play/5x5.el 21 Aug 2009 07:40:28 -0000 1.28
@@ -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 ()
Index: play/decipher.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/decipher.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- play/decipher.el 5 Jan 2009 03:23:08 -0000 1.35
+++ play/decipher.el 21 Aug 2009 07:40:29 -0000 1.36
@@ -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
Index: play/gomoku.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/gomoku.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -b -r1.56 -r1.57
--- play/gomoku.el 5 Jan 2009 03:23:09 -0000 1.56
+++ play/gomoku.el 21 Aug 2009 07:40:29 -0000 1.57
@@ -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)
Index: play/landmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/landmark.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- play/landmark.el 5 Jan 2009 03:23:10 -0000 1.41
+++ play/landmark.el 21 Aug 2009 07:40:29 -0000 1.42
@@ -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)
Index: play/mpuz.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/mpuz.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- play/mpuz.el 9 Jan 2009 04:21:20 -0000 1.43
+++ play/mpuz.el 21 Aug 2009 07:40:29 -0000 1.44
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog play/5x5.el play/decipher....,
Glenn Morris <=