diff --git a/lisp/org.el b/lisp/org.el
index a80286f..7c589e6 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19391,6 +19391,24 @@ Stop at the first and last subheadings of a superior heading."
      (org-end-of-subtree t t))
    nil))
 
+(defun org-hide-entry ()
+  "Hide the body directly following this heading. "
+  (interactive)
+  (save-excursion
+    (condition-case nil
+	(progn
+	  (org-back-to-heading t)
+	  (outline-flag-region
+	   (max (point-min) (point))
+	   (save-excursion
+	     (if (re-search-forward
+		  (concat "[\r\n]\\(" outline-regexp "\\)") nil t)
+		 (1- (match-beginning 1))
+	       (point-max)))
+	   t)
+	  (org-cycle-hide-drawers 'children))
+      (error nil))))
+
 (defun org-show-entry ()
   "Show the body directly following this heading.
 Show the heading too, if it is currently invisible."