450 |
(error "Failed to update game score file")) |
(error "Failed to update game score file")) |
451 |
(kill-buffer errbuf)) |
(kill-buffer errbuf)) |
452 |
(save-excursion |
(save-excursion |
453 |
(find-file-read-only-other-window target)))) |
(let ((buf (find-buffer-visiting target))) |
454 |
|
(if buf |
455 |
|
(progn |
456 |
|
(with-current-buffer buf |
457 |
|
(revert-buffer nil t nil)) |
458 |
|
(display-buffer buf)) |
459 |
|
(find-file-read-only-other-window target)))))) |
460 |
|
|
461 |
(defun gamegrid-add-score-insecure (file score) |
(defun gamegrid-add-score-insecure (file score) |
462 |
(save-excursion |
(save-excursion |
463 |
(setq file (expand-file-name file temporary-file-directory)) |
(setq file (expand-file-name file temporary-file-directory)) |