1 files changed, 2 insertions, 2 deletions

diff --git a/src/xml.c b/src/xml.c
index 600dcd11616..55352baae3a 100644
--- a/src/xml.c
+++ b/src/xml.c
@@ -128,13 +128,13 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
       Lisp_Object r = Qnil;
 
       while (n) {
-        if (r != Qnil)
+        if (!NILP (r))
           result = Fcons (r, result);
         r = make_dom (n);
         n = n->next;
       }
 
-      if (result == Qnil)
+      if (NILP (result))
         result = r;
       else
         result = Fcons (intern ("top"),