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

org.el (org-overview): Stay on current line 

* org.el (org-overview): Stay on current line.

This circumvents a bug in hide-sublevels which displays the
"..." ellipsis on top of the window when hiding levels that
are past the middle of the window---at least this is the
way I could understand the problem.

Thanks to Samuel Wales for reporting the problem, Arun Persaud and
William for creating reproducible recipes, Suvayu Ali, Nick Dokos
and Achim Gratz for further help.
This commit is contained in:
Bastien Guerry 2013-02-26 16:28:30 +01:00
parent 95375260e5
commit 2efbd0f138
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -6436,13 +6436,16 @@ of the first headline in the buffer. This is important, because if the
first headline is not level one, then (hide-sublevels 1) gives confusing first headline is not level one, then (hide-sublevels 1) gives confusing
results." results."
(interactive) (interactive)
(let ((level (save-excursion (let ((l (org-current-line))
(level (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(if (re-search-forward (concat "^" outline-regexp) nil t) (if (re-search-forward (concat "^" outline-regexp) nil t)
(progn (progn
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(funcall outline-level)))))) (funcall outline-level))))))
(and level (hide-sublevels level)))) (and level (hide-sublevels level))
(recenter '(4))
(org-goto-line l)))
(defun org-content (&optional arg) (defun org-content (&optional arg)
"Show all headlines in the buffer, like a table of contents. "Show all headlines in the buffer, like a table of contents.