Andreas Röhler <andreas.roeh...@easy-emacs.de> writes: > 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 > > > 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."
Are you going to use it in org-mode code base in future? Thanks and Regards Noorul _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
