[gimp] script-fu: in fuzzy-border, add undo support for the whole procedure

[Thomas Manni <tmanni src gnome org>]

commit 316adffaae159527d6c2d8c84e78e201ccc030f9
Author: Thomas Manni <thomas manni free fr>
Date:   Tue May 15 17:02:06 2018 +0200

    script-fu: in fuzzy-border, add undo support for the whole procedure

 plug-ins/script-fu/scripts/fuzzyborder.scm |   25 ++++++++++++++-----------
 1 files changed, 14 insertions(+), 11 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/fuzzyborder.scm b/plug-ins/script-fu/scripts/fuzzyborder.scm
index 9dbad0a..8c2b79a 100644
--- a/plug-ins/script-fu/scripts/fuzzyborder.scm
+++ b/plug-ins/script-fu/scripts/fuzzyborder.scm
@@ -46,19 +46,21 @@
   (let (
        (theWidth (car (gimp-image-width inImage)))
        (theHeight (car (gimp-image-height inImage)))
-       (theImage 0)
+       (theImage (if (= inCopy TRUE) (car (gimp-image-duplicate inImage))
+                                      inImage))
        (theLayer 0)
        )
 
     (gimp-context-push)
     (gimp-context-set-defaults)
 
-    (gimp-selection-all inImage)
-    (set! theImage (if (= inCopy TRUE)
-                     (car (gimp-image-duplicate inImage))
-                     inImage
-                   )
+    (if (= inCopy TRUE)
+        (gimp-image-undo-disable theImage)
+        (gimp-image-undo-group-start theImage)
     )
+
+    (gimp-selection-all theImage)
+
     (if (> (car (gimp-drawable-type inLayer)) 1)
         (gimp-image-convert-rgb theImage)
     )
@@ -97,7 +99,7 @@
     (gimp-drawable-edit-clear theLayer)
     (gimp-context-set-background inColor)
     (gimp-drawable-edit-fill theLayer FILL-BACKGROUND)
-    (gimp-selection-none inImage)
+    (gimp-selection-none theImage)
     (chris-color-edge theImage theLayer inColor 1)
 
     (if (= inBlur TRUE)
@@ -131,10 +133,11 @@
         (gimp-image-flatten theImage)
     )
     (if (= inCopy TRUE)
-      (begin
-        (gimp-image-clean-all theImage)
-        (gimp-display-new theImage)
-      )
+        (begin  (gimp-image-clean-all theImage)
+                (gimp-display-new theImage)
+                (gimp-image-undo-enable theImage)
+         )
+        (gimp-image-undo-group-end theImage)
     )
     (gimp-displays-flush)