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

Refactor ein:header-line-key-event-get-buffer

Browse source
This commit is contained in:
Takafumi Arakaki 2012-10-09 23:15:49 +02:00
parent 9a8e29b7c4
commit 5be1c716d6
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ein-notification.el
View file

@ -240,12 +240,13 @@ GET-BUFFER : function
,key-event
,@body))
(defun ein:header-line-key-event-get-buffer (key-event)
(defun ein:header-line-key-event-get-worksheet (key-event)
(ein:with-destructuring-bind-key-event key-event
(let ((worksheet (get-char-property (cdr object) 'ein:worksheet
(car object)))
(get-buffer (oref (oref ein:%notification% :tab) :get-buffer)))
(funcall get-buffer worksheet))))
(get-char-property (cdr object) 'ein:worksheet (car object))))
(defun ein:header-line-key-event-get-buffer (key-event)
(funcall (oref (oref ein:%notification% :tab) :get-buffer)
(ein:header-line-key-event-get-worksheet key-event)))
(defun ein:header-line-switch-to-this-tab (key-event)
(interactive "e")