(w3-slow-parse-buffer): Don't call w3-element-content-model on nil

values.
emacsmirror · Oct 13, 2006 · aabeb8b · aabeb8b
1 parent 609bb3b
commit aabeb8b
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-13  Magnus Henoch  <mange@freemail.hu>
+
+	* lisp/w3-parse.el (w3-slow-parse-buffer): Don't call
+	w3-element-content-model on nil values.
+
 2006-10-12  Magnus Henoch  <mange@freemail.hu>
 
 	* lisp/w3-imap.el (w3-image-loadable-p): Ignore errors in

diff --git a/lisp/w3-parse.el b/lisp/w3-parse.el
@@ -2490,9 +2490,11 @@ Returns a data structure containing the parsed information."
                      ((looking-at "/>")
                       (forward-char 2)
                       (or ;; XHTML-style empty tag
-                       (eq 'EMPTY
-                           (w3-element-content-model
-                            (get w3-p-d-tag-name 'html-element-info))) 
+                       (let ((html-element-info (get w3-p-d-tag-name 'html-element-info)))
+                         (and html-element-info
+                              (eq 'EMPTY
+                                  (w3-element-content-model
+                                   html-element-info)))) 
                        ;; XHTML empty element which is not ordinarily
                        ;; empty.  Simulate by inserting an end tag.
                        (save-excursion