Subject: org-hide-entry
Newsgroups: gmane.emacs.orgmode
Date: 2010-10-14 19:04:50 GMT (1 year, 31 weeks, 3 days, 12 hours and 15 minutes ago)
Hi. as org-mode knows a command `org-show-entry' looked for `org-hide-entry', but couldn't get it. So here it is. Andreas -- https://code.launchpad.net/~a-roehler/python-mode/python-mode-components https://code.launchpad.net/s-x-emacs-werkstatt/
diff --git a/lisp/org.el b/lisp/org.el
index a80286f..df9ae99 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) (1- (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."
_______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode <at> gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode