Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3134906c
Commit
3134906c
authored
Sep 10, 2011
by
Lars Magne Ingebrigtsen
Browse files
* xml.c (parse_region): Make the parsing work for non-comment-starting XML files again.
Fixes: debbugs:9144
parent
8d903f4e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
3 deletions
+14
-3
src/ChangeLog
src/ChangeLog
+5
-0
src/xml.c
src/xml.c
+9
-3
No files found.
src/ChangeLog
View file @
3134906c
2011-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* xml.c (parse_region): Make the parsing work for
non-comment-starting XML files again (bug#9144).
2011-09-10 Andreas Schwab <schwab@linux-m68k.org>
* image.c (gif_load): Fix calculation of bottom and right corner.
...
...
src/xml.c
View file @
3134906c
...
...
@@ -124,6 +124,8 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
if
(
doc
!=
NULL
)
{
/* If the document is just comments, then this should get us the
nodes anyway. */
xmlNode
*
n
=
doc
->
children
->
next
;
Lisp_Object
r
=
Qnil
;
...
...
@@ -134,9 +136,13 @@ parse_region (Lisp_Object start, Lisp_Object end, Lisp_Object base_url, int html
n
=
n
->
next
;
}
if
(
NILP
(
result
))
result
=
r
;
else
if
(
NILP
(
result
))
{
/* The document isn't just comments, so get the tree the
proper way. */
xmlNode
*
node
=
xmlDocGetRootElement
(
doc
);
if
(
node
!=
NULL
)
result
=
make_dom
(
node
);
}
else
result
=
Fcons
(
intern
(
"top"
),
Fcons
(
Qnil
,
Fnreverse
(
Fcons
(
r
,
result
))));
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment