Display default registry keys as "@".

diff --git a/filetree_markup.ml b/filetree_markup.ml
index 55bb425..beb41b2 100644 (file)
--- a/filetree_markup.ml
+++ b/filetree_markup.ml
@@ -85,7 +85,6 @@ let rec markup_of_name ?(visited = false) direntry =
 (* Mark up a registry key. *)
 and markup_of_regkey ?(visited = false) h node =
   let name = Hivex.node_name h node in
-  let name = if name = "" then "@" else name in
   let fg = if not visited then normal dir_color else darken dir_color in
   sprintf "<span fgcolor=\"%s\">%s</span>" fg (markup_escape name)
 
@@ -93,6 +92,7 @@ and markup_of_regkey ?(visited = false) h node =
 and markup_of_regvalue ?(visited = false) h value =
   debug "markup_of_regvalue";
   let k = Hivex.value_key h value in
+  let k = if k = "" then "@" else k in
   let t, v = Hivex.value_value h value in
 
   (* Ignore long values. *)