Remove unused function `org-compact-display-after-subtree-move'
This commit is contained in:
parent
2129ea6494
commit
c6a2f2deae
|
@ -2,6 +2,7 @@
|
|||
|
||||
* org.el (org-set-effort): Improve prompt.
|
||||
(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.
|
||||
|
||||
|
|
13
lisp/org.el
13
lisp/org.el
|
@ -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 '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)
|
||||
"Remove outline overlays that do not contain non-white stuff."
|
||||
(mapc
|
||||
|
|
Loading…
Reference in New Issue