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&gt; * 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&gt; + + * 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&gt; * Makefile (VERSION): XEmacs package 1.16 released. ＠＠ -5,13 +14,6 ＠＠ 2005-11-06 Adrian Aichner <adrian(a)xemacs.org&gt; * Makefile (MAINTAINER): Update email address. - -2005-11-06 Adrian Aichner <adrian(a)xemacs.org&gt; - - * 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&gt; 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&gt; +MAINTAINER = Glynn Clements <glynn(a)gclements.plus.com&gt; 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&gt; +;; Author: Glynn Clements <glynn(a)gclements.plus.com&gt; ;; 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&gt; +;; Author: Glynn Clements <glynn(a)gclements.plus.com&gt; ;; 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")