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

Allow fontification before the point in org-src

Browse source 
Now it starts infinite loop again.
This commit is contained in:
Takafumi Arakaki 2012-09-04 14:40:54 +02:00
parent 9630f8f82a
commit 846c9263ac
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ein-org-src.el
View file

@ -37,13 +37,22 @@ See info node `(elisp) Search-based Fontification'."
(ein:log-ignore-errors
(ein:org-src-fontify-1 limit)))
(defun ein:org-src-current-or-next-input-cell (ewoc-node)
(let* ((ewoc-data (ewoc-data ewoc-node))
(cell (ein:$node-data ewoc-data))
(path (ein:$node-path ewoc-data))
(element (nth 1 path)))
(if (memql element '(prompt input))
cell
(ein:cell-next cell))))
(defun ein:org-src-fontify-1 (limit)
"Actual implementation of `ein:org-src-fontify'.
This function may raise an error."
(ein:and-let* ((pos (point))
(node (ein:worksheet-get-nearest-cell-ewoc-node pos limit))
(cell (ein:worksheet-next-input-cell node))
(start (ein:cell-input-pos-min cell)) ((>= start pos))
(cell (ein:org-src-current-or-next-input-cell node))
(start (ein:cell-input-pos-min cell))
(end (ein:cell-input-pos-max cell)) ((<= end limit))
((< start end))
(lang (ein:cell-language cell)))