summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2009-11-15 10:01:23 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2009-11-15 10:01:23 +0100
commitc6a2f2deae382d5f21a5d1dcc4a404a5106a82f1 (patch)
tree7c427c47229ea4eba6c1d908f20b4cda617e09ea
parent2129ea6494da529925bb5f05581aa652a7cfb6e0 (diff)
downloadorg-mode-c6a2f2deae382d5f21a5d1dcc4a404a5106a82f1.tar.gz
Remove unused function `org-compact-display-after-subtree-move'
-rwxr-xr-xlisp/ChangeLog1
-rw-r--r--lisp/org.el13
2 files changed, 1 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 128d4c6..5c48eb1 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 feddf0b..bf6573b 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