hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-04 15:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix macro hygiene issues

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-06-30 12:16:29 -05:00
parent 4c3168d53f
commit f5d852dc6d
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
jupyter-base.el
View file

@ -175,7 +175,7 @@ returned."
(declare (indent 3) (debug (symbolp symbolp form body)))
`(let ((,beg (point-marker))
(,end (point-marker)))
(set-marker-insertion-type end t)
(set-marker-insertion-type ,end t)
(unwind-protect
(prog1 ,bodyform ,@afterforms)
(set-marker ,beg nil)

14
jupyter-mime.el
View file

@ -92,12 +92,14 @@ find the display in the REPL buffer. See
"Handle control codes in any produced output generated by evaluating BODY.
After BODY is evaluated, call `jupyter-handle-control-codes'
on the region inserted by BODY."
`(jupyter-with-insertion-bounds
beg end (progn ,@body)
;; Handle continuation from previous messages
(when (eq (char-before beg) ?\r)
(move-marker beg (1- beg)))
(jupyter-handle-control-codes beg end)))
(let ((beg (make-symbol "beg"))
(end (make-symbol "end")))
`(jupyter-with-insertion-bounds
,beg ,end (progn ,@body)
;; Handle continuation from previous messages
(when (eq (char-before ,beg) ?\r)
(move-marker ,beg (1- ,beg)))
(jupyter-handle-control-codes ,beg ,end))))
;;; Fontificiation routines