Fix ein:notebook-change-cell-type

The prompt became "hheading:" because the string "heading" was in the
:level slot.
This commit is contained in:
Takafumi Arakaki 2012-07-20 17:09:43 +02:00
parent 10820048f8
commit dd53358ff8
2 changed files with 2 additions and 1 deletions

View file

@ -254,6 +254,7 @@ slot.")))
new))
(defmethod ein:cell-change-level ((cell ein:headingcell) level)
(assert (integerp level))
(let ((inhibit-read-only t)
(buffer-undo-list t)) ; disable undo recording
(oset cell :level level)

View file

@ -638,7 +638,7 @@ Prompt will appear in the minibuffer."
(when (ein:codecell-p new)
(oset new :kernel (ein:$notebook-kernel ein:notebook)))
(when level
(ein:cell-change-level new type))
(ein:cell-change-level new level))
(ein:notebook-empty-undo-maybe)))))
(defun ein:notebook-split-cell-at-point (&optional no-trim)