From 0734414bd78587994b504d35f71d9e97143d2185 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Wed, 4 Dec 2024 13:41:52 +0100
Subject: [PATCH] simplify some regsub pattern substitutions in xschem.tcl

---
 src/xschem.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 4fadfc36..53cb94ab 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2359,7 +2359,7 @@ proc graph_add_nodes_from_list {nodelist} {
         set node [string trim [.graphdialog.center.right.text1 get 1.0 {end - 1 chars}] " \n"]
         xschem setprop rect 2 $graph_selected color $col fastundo
         graph_update_nodelist
-        regsub -all {[\\"]} $node "\\\\&" node_quoted
+        regsub -all {[\\"]} $node {\\&} node_quoted
         xschem setprop rect 2 $graph_selected node $node_quoted fast
         xschem draw_graph $graph_selected
       }
@@ -2392,7 +2392,7 @@ proc graph_add_nodes_from_list {nodelist} {
         append nnn "\n"
       } 
       append nnn $sel
-      regsub -all {[\\"]} $nnn "\\\\&" node_quoted
+      regsub -all {[\\"]} $nnn {\\&} node_quoted
       xschem setprop rect 2 [xschem get graph_lastsel] node $node_quoted fast
       xschem draw_graph [xschem get graph_lastsel]
     }
@@ -2621,7 +2621,7 @@ proc graph_update_node {node} {
   graph_update_nodelist
   # add a backslash before " and \ characters
   # note the double escaping for regsub replace string
-  regsub -all {[\\"]} $node "\\\\&" node_quoted
+  regsub -all {[\\"]} $node {\\&} node_quoted
   graph_push_undo
   xschem setprop rect 2 $graph_selected node $node_quoted fast
   xschem draw_graph $graph_selected