From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 17 Dec 2010 13:21:59 +0000 (+0000)
Subject: Display default registry keys as "@".
X-Git-Tag: 0.1.3~1
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=8260bc1fce6ab92b77dbe87b8eccd2b415a95ec3;hp=3ab788383673a8300925a7de6113ef3962378a15;p=guestfs-browser.git

Display default registry keys as "@".
---

diff --git a/filetree_markup.ml b/filetree_markup.ml
index 55bb425..beb41b2 100644
--- 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. *)