hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Retain original point after updating notebook list

Browse source 
fixes #22
This commit is contained in:
Takafumi Arakaki 2012-07-15 22:27:49 +02:00
parent dd16def512
commit c1de159060
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ein-notebooklist.el
View file

@ -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" (error "Failed to connect to server '%s'. Got: %S"
(ein:url url-or-port) it)) (ein:url url-or-port) it))
(with-current-buffer (ein:notebooklist-get-buffer url-or-port) (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 (setq ein:notebooklist
(make-ein:$notebooklist :url-or-port url-or-port (make-ein:$notebooklist :url-or-port url-or-port
:data data)) :data data))
(ein:notebooklist-list-add ein:notebooklist) (ein:notebooklist-list-add ein:notebooklist)
(ein:notebooklist-render) (ein:notebooklist-render)
(goto-char (point-min)) (goto-char orig-point)
(message "Opened notebook list at %s" url-or-port) (message "Opened notebook list at %s" url-or-port)
(unless already-opened-p (unless already-opened-p
(run-hooks 'ein:notebooklist-first-open-hook)) (run-hooks 'ein:notebooklist-first-open-hook))