From 4ea807d8dedc395b3310fdf1d5de3bb08a24a281 Mon Sep 17 00:00:00 2001
From: zolliker <zolliker>
Date: Thu, 17 Nov 2005 07:52:56 +0000
Subject: [PATCH] - do not report an error on Publish when macro already exists

---
 macro.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/macro.c b/macro.c
index b4abcf96..7ba4d3e8 100644
--- a/macro.c
+++ b/macro.c
@@ -943,6 +943,13 @@ static int ProtectedExec(ClientData clientData, Tcl_Interp *interp,
       return 0;
     }
  
+    /* check if the macro already exists */
+    pNew = FindCommandData(pSics, argv[1], "Macro");
+    if (pNew)
+    { /* yes -> overwrite access code */
+      pNew->iUser = iUser;
+      return 0;
+    }
     /* do a job !*/
     pNew = CreatePublish(argv[1],iUser);
     if(!pNew)