| Paste number 44307: | Allout toggling oy subtrees |
| Pasted by: | Tassilo |
| When: | 1 year, 11 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+Y6R |
| Channel: | None |
| Paste contents: |
(add-hook 'allout-mode-hook
(lambda()
(th-font-lock-allout)
(local-set-key (kbd "C-c C-a C-t") 'th-allout-toggle-current-subtree)))
(defun th-allout-toggle-current-subtree ()
"Show or hide the current subtree depending on its current
state."
(interactive)
(save-excursion
(allout-back-to-heading)
(if (allout-hidden-p (point-at-eol))
(progn
(allout-show-current-subtree))
(allout-hide-current-subtree))))
This paste has no annotations.