ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove unused function `org-compact-display-after-subtree-move'

This commit is contained in:
Carsten Dominik 2009-11-15 10:01:23 +01:00
parent 2129ea6494
commit c6a2f2deae
2 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -2,6 +2,7 @@
* org.el (org-set-effort): Improve prompt. * org.el (org-set-effort): Improve prompt.
(org-get-outline-path): Widen to get full path. (org-get-outline-path): Widen to get full path.
(org-compact-display-after-subtree-move): Function removed.
* org-latex.el (org-export-as-latex): Add the :drawers property. * org-latex.el (org-export-as-latex): Add the :drawers property.

13
lisp/org.el
View File

@ -5413,19 +5413,6 @@ This function is the default value of the hook `org-cycle-hook'."
((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1))) ((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1)))
((eq state 'subtree) (or (org-subtree-end-visible-p) (recenter 1)))))) ((eq state 'subtree) (or (org-subtree-end-visible-p) (recenter 1))))))
;; FIXME: no longer in use
(defun org-compact-display-after-subtree-move ()
"Show a compacter version of the tree of the entry's parent."
(save-excursion
(if (org-up-heading-safe)
(progn
(hide-subtree)
(show-entry)
(show-children)
(org-cycle-show-empty-lines 'children)
(org-cycle-hide-drawers 'children))
(org-overview))))
(defun org-remove-empty-overlays-at (pos) (defun org-remove-empty-overlays-at (pos)
"Remove outline overlays that do not contain non-white stuff." "Remove outline overlays that do not contain non-white stuff."
(mapc (mapc