[elpa] 17/17: [gnugo] Indicate buffer not modified after save.

[Thien-Thi Nguyen]

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 152672dc3b5613cd9d6de38777084812a948645b
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Feb 3 10:36:46 2014 +0100

    [gnugo] Indicate buffer not modified after save.
    
    * packages/gnugo/gnugo.el (gnugo-animate-group): Use current
    value of ‘buffer-modified-p’ in loop instead of ‘t’.
    (gnugo-write-sgf-file): Clear buffer-modified state.
---
 packages/gnugo/ChangeLog |    8 ++++++++
 packages/gnugo/gnugo.el  |    7 +++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index 7e833e8..e060ae2 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,3 +1,11 @@
+2014-02-03  Thien-Thi Nguyen  <address@hidden>
+
+       [gnugo] Indicate buffer not modified after save.
+
+       * gnugo.el (gnugo-animate-group): Use current
+       value of ‘buffer-modified-p’ in loop instead of ‘t’.
+       (gnugo-write-sgf-file): Clear buffer-modified state.
+
 2014-01-31  Thien-Thi Nguyen  <address@hidden>
 
        [gnugo int] Use ‘(split-string STR SEP t)’.
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 17cb428..f69078b 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1045,6 +1045,7 @@ To start a game try M-x gnugo."
 (defun gnugo-animate-group (command)
   (message "Computing %s ..." command)
   (let* ((pos (gnugo-position))
+         (orig-b-m-p (buffer-modified-p))
          (stones (if (memq (char-after) '(?X ?O))
                      (gnugo-lsquery "%s %s" command pos)
                    (error "No stone at %s" pos))))
@@ -1076,7 +1077,8 @@ To start a game try M-x gnugo."
       (while (and (cdr spec)            ; let last linger lest levity lost
                   (sit-for 0.08675309)) ; jenny jenny i got your number...
         (setcar cell (setq spec (cdr spec)))
-        (set-buffer-modified-p t))
+        ;; Force redisplay of overlays.
+        (set-buffer-modified-p orig-b-m-p))
       (sit-for 5)
       (mapc 'delete-overlay ovs)
       t)))
@@ -1199,7 +1201,8 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
   (when (and (file-exists-p filename)
              (not (y-or-n-p "File exists. Continue? ")))
     (error "Not writing %s" filename))
-  (gnugo/sgf-write-file (gnugo-get :sgf-collection) filename))
+  (gnugo/sgf-write-file (gnugo-get :sgf-collection) filename)
+  (set-buffer-modified-p nil))
 
 (defun gnugo-read-sgf-file (filename)
   "Load the first game tree from FILENAME, a file in SGF format."