ein-cell: Fix slideshow metadata.

Was using wrong name for slide type; should be 'slide_type' not 'slide-type'.
This commit is contained in:
John Miller 2017-06-02 15:05:21 -05:00
parent 0196407b42
commit 179cec48ae

View file

@ -255,7 +255,7 @@ auto-execution mode flag in the connected buffer is `t'.")))
(defun ein:get-slide-show (cell)
(let ((slide-type (slot-value cell 'slidetype))
(ss-table (make-hash-table)))
(setf (gethash 'slide-type ss-table) slide-type)
(setf (gethash 'slide_type ss-table) slide-type)
ss-table))
(defun ein:preprocess-nb4-cell (cell-data)