__

Using org-mode with extra function in org-toc as follows: (emacs#55)

(defun org-toc-test ()
  (interactive)
  (let ((pos (point)))
    (goto-char pos)
  (outline-next-heading)
;;  (org-cycle)
      (progn (org-overview)
	     (if org-toc-show-subtree-mode
		 (org-show-subtree)
	       (org-show-entry))
    (org-show-context)
    	  (recenter org-toc-recenter))))