[elpa] externals/agitate d69588a055 5/8: Restore point after "informative" window reconfiguration

[ELPA Syncer]

branch: externals/agitate
commit d69588a055f4288b4969c2be0c2f589262a89bce
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Restore point after "informative" window reconfiguration
---
 agitate.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/agitate.el b/agitate.el
index 27425e8471..49354051ac 100644
--- a/agitate.el
+++ b/agitate.el
@@ -247,6 +247,9 @@ Prompt for entry among those declared in
 (defvar agitate--previous-window-configuration nil
   "Store the last window configuration.")
 
+(defvar agitate--previous-window-point nil
+  "Store the last window `point'.")
+
 ;;;###autoload
 (define-minor-mode agitate-log-edit-informative-mode
   "Apply a specific window configuation when entering `log-edit'.
@@ -265,7 +268,8 @@ either with `log-edit-kill-buffer' or `log-edit-done'."
 
 (defun agitate--log-edit-informative-save-windows ()
   "Save `current-window-configuration'."
-  (setq agitate--previous-window-configuration (current-window-configuration)))
+  (setq agitate--previous-window-point (point)
+        agitate--previous-window-configuration (current-window-configuration)))
 
 (defun agitate--log-edit-informative-setup ()
   "Set up informative `log-edit' window configuration."
@@ -290,7 +294,9 @@ either with `log-edit-kill-buffer' or `log-edit-done'."
 
 (defun agitate--log-edit-informative-restore ()
   "Restore `agitate--previous-window-configuration'."
-  (set-window-configuration agitate--previous-window-configuration))
+  (set-window-configuration agitate--previous-window-configuration)
+  (when agitate--previous-window-point
+    (goto-char agitate--previous-window-point)))
 
 ;;;; Commands for log-view (listings of commits)