MK
Size: a a a
MK
DL
DL
y
D
y
y
D
y
(defun literate-calc--create-overlay (name result)
"Create an overlay for NAME & RESULT on the current line."
(let* ((o (make-overlay (line-beginning-position)
(line-end-position)
nil
t
t)))
(overlay-put o 'literate-calc t)
(overlay-put o 'evaporate t)
(overlay-put o 'after-string
(propertize
(literate-calc--format-result name result)
'face 'font-lock-comment-face
'cursor t))))
y
y
D
D
a
DL
DL
TM
a
DL
S