12:29 a.m.
User: adrian
Date: 05/11/12 01:29:56
Modified: packages/xemacs-packages/games ChangeLog Makefile
gamegrid.el tetris.el
Log:
packages: Emergency (:-) fixes for gamegrid and tetris
-------------------- ChangeLog entries follow: --------------------
xemacs-packages/games/ChangeLog addition:
2005-11-12 Adrian Aichner <adrian(a)xemacs.org>
* Makefile (MAINTAINER): Update email address.
* gamegrid.el: Ditto.
* tetris.el: Ditto.
* gamegrid.el (gamegrid-add-score): Fix loss of scores with
non-octal digits.
* tetris.el (tetris-score-file): Default to user-init-directory.
Revision Changes Path
1.17 +9 -7 XEmacs/packages/xemacs-packages/games/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/games/ChangeLog,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- ChangeLog 2005/11/07 21:44:41 1.16
+++ ChangeLog 2005/11/12 00:29:49 1.17
＠＠ -1,3 +1,12 ＠＠
+2005-11-12 Adrian Aichner <adrian(a)xemacs.org>
+
+ * Makefile (MAINTAINER): Update email address.
+ * gamegrid.el: Ditto.
+ * tetris.el: Ditto.
+ * gamegrid.el (gamegrid-add-score): Fix loss of scores with
+ non-octal digits.
+ * tetris.el (tetris-score-file): Default to user-init-directory.
+
2005-11-07 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.16 released.
＠＠ -5,13 +14,6 ＠＠
2005-11-06 Adrian Aichner <adrian(a)xemacs.org>
* Makefile (MAINTAINER): Update email address.
-
-2005-11-06 Adrian Aichner <adrian(a)xemacs.org>
-
- * gamegrid.el (gamegrid-add-score): Fix loss of scores with
- non-octal digits.
- * tetris.el (tetris-score-file): Default to (temp-directory), not
- "/tmp".
2003-10-31 Norbert Koch <viteno(a)xemacs.org>
1.25 +1 -1 XEmacs/packages/xemacs-packages/games/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/games/Makefile,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -r1.24 -r1.25
--- Makefile 2005/11/07 21:44:41 1.24
+++ Makefile 2005/11/12 00:29:49 1.25
＠＠ -21,7 +21,7 ＠＠
VERSION = 1.16
AUTHOR_VERSION = 1.04
-MAINTAINER = Glynn Clements <glynn.clements(a)virgin.net>
+MAINTAINER = Glynn Clements <glynn(a)gclements.plus.com>
PACKAGE = xemacs-base
PACKAGE = games
PKG_TYPE = regular
1.6 +9 -3 XEmacs/packages/xemacs-packages/games/gamegrid.el
Index: gamegrid.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/games/gamegrid.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- gamegrid.el 2003/06/14 18:48:26 1.5
+++ gamegrid.el 2005/11/12 00:29:49 1.6
＠＠ -2,7 +2,7 ＠＠
;; Copyright (C) 1998 Free Software Foundation, Inc.
-;; Author: Glynn Clements <glynn.clements(a)virgin.net>
+;; Author: Glynn Clements <glynn(a)gclements.plus.com>
;; Version: 1.03
;; Created: 1997-08-13
;; Keywords: games
＠＠ -429,8 +429,14 ＠＠ static char *noname[] = {
((boundp 'user-mail-address)
user-mail-address)
(t ""))))
- (sort-numeric-fields 1 (point-min) (point-max))
- (reverse-region (point-min) (point-max))
+ ;; Prefixing numbers 0's will make `sort-numeric-fields' sort with
+ ;; sort-numeric-base of 8.
+ ;; One workaround is to use `sort-regexp-fields-numerically',
+ ;; on the number, excluding leading 0's.
+ (sort-regexp-fields-numerically
+ nil
+ "^[0]*\\([1-9][0-9]+\\)\\>.+$" "\\1" (point-min)
(point-max))
+ (reverse-region (point-min) (point-max))
(goto-line (1+ gamegrid-score-file-length))
(delete-region (point) (point-max))
(setq buffer-read-only t)
1.5 +3 -2 XEmacs/packages/xemacs-packages/games/tetris.el
Index: tetris.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/games/tetris.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- tetris.el 2003/06/14 18:48:27 1.4
+++ tetris.el 2005/11/12 00:29:49 1.5
＠＠ -2,7 +2,7 ＠＠
;; Copyright (C) 1998 Free Software Foundation, Inc.
-;; Author: Glynn Clements <glynn.clements(a)virgin.net>
+;; Author: Glynn Clements <glynn(a)gclements.plus.com>
;; Version: 2.03
;; Created: 1997-08-13
;; Keywords: games
＠＠ -136,7 +136,8 ＠＠ Element 0 is ignored")
(defvar tetris-score-y (+ tetris-next-y 6)
"Y position of score")
-(defvar tetris-score-file "/tmp/tetris-scores"
+(defvar tetris-score-file
+ (expand-file-name "tetris-scores" user-init-directory)
;; anybody with a well-connected server want to host this?
;(defvar tetris-score-file "/anonymous＠ftp.pgt.com:/pub/cgw/tetris-scores"
"File for holding high scores")