Am 15.10.2010 09:47, schrieb Carsten Dominik:
On Oct 14, 2010, at 9:04 PM, Andreas Röhler wrote:
Hi.
as org-mode knows a command `org-show-entry' looked for
`org-hide-entry', but couldn't get it.
So here it is.
This will leave the buffer in a pretty messy state.
Indeed, thanks. It's cured already.
Please try patch attached.
Andreas
It will hide a headline and the text below it, but not the subtree. The
ellipsis will be on the text belonging to the entry before.
For example
* test
aaa
** sub 1
bbb
** sub2
ccc
Call this command on sub one, and you get
* test
aaa....
** sub2
ccc
This is not good. So I don't understand what this might be useful for.
Maybe there are outline-... commands which do what you really mean?
- Carsten
- Carsten
Andreas
--
https://code.launchpad.net/~a-roehler/python-mode/python-mode-components
https://code.launchpad.net/s-x-emacs-werkstatt/
<org-hide-entry.patch>_______________________________________________
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
- Carsten
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."
_______________________________________________
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
