diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-07-24 10:01:58 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-07-24 10:01:58 -0400 |
| commit | 14486a1036dc8192ebc75a43a3e6c75fa5c8683f (patch) | |
| tree | 3e1aa930a13037076bca17f825a354e57bcbe9b8 /src/xml.c | |
| parent | 0b3f36df8c6eae67c267ebe4de0cb4006e0c7251 (diff) | |
| download | emacs-14486a1036dc8192ebc75a43a3e6c75fa5c8683f.tar.gz | |
* src/xml.c: Fix Lisp_Object/int mixup.
Diffstat (limited to 'src/xml.c')
| -rw-r--r-- | src/xml.c | 4 |
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"), |