1 files changed, 9 insertions, 0 deletions
diff --git a/src/components/script/dom/document.rs b/src/components/script/dom/document.rs
index e627ee55911..c22884ca07d 100644
--- a/src/components/script/dom/document.rs
+++ b/src/components/script/dom/document.rs
@@ -303,6 +303,15 @@ impl Document {
         }
     }
 
+    // http://www.whatwg.org/specs/web-apps/current-work/#dom-document-head
+    pub fn GetHead(&self) -> Option<AbstractNode> {
+        self.get_html_element().and_then(|root| {
+            root.traverse_preorder().find(|child| {
+                child.type_id() == ElementNodeTypeId(HTMLHeadElementTypeId)
+            })
+        })
+    }
+
     pub fn GetBody(&self, _: AbstractDocument) -> Option<AbstractNode> {
         match self.get_html_element() {
             None => None,