From c1de159060ede945ef3ff6363f38c050b8a596de Mon Sep 17 00:00:00 2001 From: Takafumi Arakaki Date: Sun, 15 Jul 2012 22:27:49 +0200 Subject: [PATCH] Retain original point after updating notebook list fixes #22 --- lisp/ein-notebooklist.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ein-notebooklist.el b/lisp/ein-notebooklist.el index 2a9f3cc..badeb40 100644 --- a/lisp/ein-notebooklist.el +++ b/lisp/ein-notebooklist.el @@ -158,13 +158,14 @@ To suppress popup, you can pass a function `ein:do-nothing' as CALLBACK." (error "Failed to connect to server '%s'. Got: %S" (ein:url url-or-port) it)) (with-current-buffer (ein:notebooklist-get-buffer url-or-port) - (let ((already-opened-p (ein:notebooklist-list-get url-or-port))) + (let ((already-opened-p (ein:notebooklist-list-get url-or-port)) + (orig-point (point))) (setq ein:notebooklist (make-ein:$notebooklist :url-or-port url-or-port :data data)) (ein:notebooklist-list-add ein:notebooklist) (ein:notebooklist-render) - (goto-char (point-min)) + (goto-char orig-point) (message "Opened notebook list at %s" url-or-port) (unless already-opened-p (run-hooks 'ein:notebooklist-first-open-hook))