[Emacs-diffs] Changes to emacs/lisp/play/gamegrid.el

[Colin Walters]

Index: emacs/lisp/play/gamegrid.el
diff -c emacs/lisp/play/gamegrid.el:1.9 emacs/lisp/play/gamegrid.el:1.10
*** emacs/lisp/play/gamegrid.el:1.9     Tue Apr 23 16:24:40 2002
--- emacs/lisp/play/gamegrid.el Mon Apr 29 18:53:44 2002
***************
*** 413,430 ****
       (gamegrid-add-score-with-update-game-score file score))))
  
  (defun gamegrid-add-score-with-update-game-score (file score)
!   (let ((result nil)
!       (errbuf (generate-new-buffer " *update-game-score loss*"))
!       (target (if game-score-directory
!                   file
!                 (let ((f (expand-file-name "~/.emacs.d/games")))
!                   (unless (eq (car-safe (file-attributes f))
!                               t)
!                     (make-directory f))
!                   (setq f (expand-file-name file f))
!                   (unless (file-exists-p f)
!                     (write-region "" nil f nil 'silent nil 'excl))
!                   f))))
      (let ((default-directory "/"))
        (apply
         'call-process
--- 413,436 ----
       (gamegrid-add-score-with-update-game-score file score))))
  
  (defun gamegrid-add-score-with-update-game-score (file score)
!   (let* ((result nil)
!        (errbuf (generate-new-buffer " *update-game-score loss*"))
!        (have-shared-game-dir
!         (not (zerop (logand (file-modes
!                              (expand-file-name "update-game-score"
!                                                exec-directory))
!                             #o4000))))
!        (target (if have-shared-game-dir
!                    (expand-file-name file game-score-directory)
!                  (let ((f (expand-file-name game-score-directory)))
!                    (when (file-writable-p f)
!                      (unless (eq (car-safe (file-attributes f))
!                                  t)
!                        (make-directory f))
!                      (setq f (expand-file-name file f))
!                      (unless (file-exists-p f)
!                        (write-region "" nil f nil 'silent nil 'excl)))
!                    f))))
      (let ((default-directory "/"))
        (apply
         'call-process
***************
*** 432,438 ****
        (list
         (expand-file-name "update-game-score" exec-directory)
         nil errbuf nil
!        "-m" (int-to-string gamegrid-score-file-length) file
         (int-to-string score)
         (concat
          (user-full-name)
--- 438,445 ----
        (list
         (expand-file-name "update-game-score" exec-directory)
         nil errbuf nil
!        "-m" (int-to-string gamegrid-score-file-length)
!        "-d" (expand-file-name game-score-directory) file
         (int-to-string score)
         (concat
          (user-full-name)