From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sun, 8 Sep 2013 06:13:35 +0000 (+0200)
Subject: Preserve point when switching to overview
X-Git-Tag: release_8.1.1~4
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/b64626ecf49b3d1504c5107ace2b2931f5dadb37

Preserve point when switching to overview

* lisp/org.el (org-overview): Preserve point.

We want to preserve point when changing global visibility.  This is a
bit dangerouns, because it can leave point in an invisible location.
However, we want to make sure that pressing M-TAG three times returns
us to the same position as before.
---

diff --git a/lisp/org.el b/lisp/org.el
index 84c1935b4..c92fa662a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6897,7 +6897,7 @@ 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
 results."
   (interactive)
-  (let ((l (org-current-line))
+  (let ((pos (point))
 	(level (save-excursion
 		 (goto-char (point-min))
 		 (if (re-search-forward (concat "^" outline-regexp) nil t)
@@ -6906,7 +6906,7 @@ results."
 		       (funcall outline-level))))))
     (and level (hide-sublevels level))
     (recenter '(4))
-    (org-goto-line l)))
+    (goto-char pos)))
 
 (defun org-content (&optional arg)
   "Show all headlines in the buffer, like a table of contents.