From c6a2f2deae382d5f21a5d1dcc4a404a5106a82f1 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 15 Nov 2009 10:01:23 +0100 Subject: [PATCH] Remove unused function `org-compact-display-after-subtree-move' --- lisp/ChangeLog | 1 + lisp/org.el | 13 ------------- 2 files changed, 1 insertion(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 128d4c665..5c48eb14a 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/org.el b/lisp/org.el index feddf0b12..bf6573bc8 100644 --- a/lisp/org.el +++ b/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