diff -c /home/cwebber/elisp/gamegrid.el /home/cwebber/elisp/gamegrid-new.el
*** /home/cwebber/elisp/gamegrid.el	2007-02-27 21:02:52.000000000 -0600
--- /home/cwebber/elisp/gamegrid-new.el	2007-02-27 21:04:43.000000000 -0600
***************
*** 514,520 ****
  
  (defun gamegrid-add-score-with-update-game-score-1 (file target score)
    (let ((default-directory "/")
! 	(errbuf (generate-new-buffer " *update-game-score loss*")))
      ;; This can be called from a timer, so enable local quits.
      (with-local-quit
        (apply
--- 514,530 ----
  
  (defun gamegrid-add-score-with-update-game-score-1 (file target score)
    (let ((default-directory "/")
! 	(errbuf (generate-new-buffer " *update-game-score loss*"))
!         (marker-string (concat
!                         (user-full-name)
!                         " <"
!                         (cond ((fboundp 'user-mail-address)
!                                (user-mail-address))
!                               ((boundp 'user-mail-address)
!                                user-mail-address)
!                               (t ""))
!                         ">  "
!                         (current-time-string))))
      ;; This can be called from a timer, so enable local quits.
      (with-local-quit
        (apply
***************
*** 529,556 ****
  		(file-name-directory target))
  	 file
  	 (int-to-string score)
! 	 (concat
! 	  (user-full-name)
! 	  " <"
! 	  (cond ((fboundp 'user-mail-address)
! 		 (user-mail-address))
! 		((boundp 'user-mail-address)
! 		 user-mail-address)
! 		(t ""))
! 	  ">  "
! 	  (current-time-string))))))
      (if (buffer-modified-p errbuf)
  	(progn
  	  (display-buffer errbuf)
  	  (error "Failed to update game score file"))
        (kill-buffer errbuf))
      (let ((buf (find-buffer-visiting target)))
!       (if buf
! 	  (progn
! 	    (with-current-buffer buf
! 	      (revert-buffer nil t nil))
! 	    (display-buffer buf))
! 	(find-file-read-only-other-window target)))))
  
  (defun gamegrid-add-score-insecure (file score &optional directory)
    (save-excursion
--- 539,563 ----
  		(file-name-directory target))
  	 file
  	 (int-to-string score)
!          marker-string))))
      (if (buffer-modified-p errbuf)
  	(progn
  	  (display-buffer errbuf)
  	  (error "Failed to update game score file"))
        (kill-buffer errbuf))
      (let ((buf (find-buffer-visiting target)))
!       (save-excursion
!         (if buf
!             (progn
!               (switch-to-buffer buf)
!               (revert-buffer nil t nil)
!               (display-buffer buf))
!           (find-file-read-only target))
!         (goto-char (point-min))
!         (search-forward (concat (int-to-string score)
!                                 " " (user-login-name) " "
!                                 marker-string))
!         (beginning-of-line)))))
  
  (defun gamegrid-add-score-insecure (file score &optional directory)
    (save-excursion

Diff finished.  Tue Feb 27 21:05:50 2007