Raise error in ein:notebook-insert-cell-below if suspicious

This commit is contained in:
Takafumi Arakaki 2012-05-13 07:14:33 +02:00
parent 36688ca8c2
commit 4bb9cfd47a

View file

@ -241,7 +241,9 @@ is `nil', BODY is executed with any cell types."
((= (ein:notebook-ncells notebook) 0)
(ein:cell-enter-last cell))
(base-cell
(ein:cell-insert-below base-cell cell)))
(ein:cell-insert-below base-cell cell))
(t (error (concat "`base-cell' is `nil' but ncells != 0. "
"There is something wrong..."))))
(ein:cell-goto cell)
(setf (ein:$notebook-dirty notebook) t))
cell))