Rename to ein:notebook-scratchsheet-render-new

s/ein:notebook-scratchsheet-new/ein:notebook-scratchsheet-render-new/
This commit is contained in:
Takafumi Arakaki 2012-08-29 23:51:22 +02:00
parent 9197238e61
commit 94967849f6
2 changed files with 3 additions and 3 deletions

View file

@ -653,7 +653,7 @@ as usual."
;;; Scratch sheet
(defun ein:notebook-scratchsheet-new (notebook)
(defun ein:notebook-scratchsheet-render-new (notebook)
"Create new scratchsheet in NOTEBOOK."
(ein:notebook--worksheet-render-new notebook scratchsheet))
@ -669,7 +669,7 @@ worksheet to save result."
t))
(let ((ss (or (unless new
(car (ein:$notebook-scratchsheets notebook)))
(ein:notebook-scratchsheet-new notebook))))
(ein:notebook-scratchsheet-render-new notebook))))
(when popup
(pop-to-buffer (ein:worksheet-buffer ss)))
ss))

View file

@ -687,7 +687,7 @@ defined."
(ein:testing-notebook-make-empty)))
ein:testing-notebook-del-args-log)
(dotimes (_ num-ss)
(ein:notebook-scratchsheet-new notebook))
(ein:notebook-scratchsheet-render-new notebook))
(let ((buffers (ein:notebook-buffer-list notebook)))
(should (= (length buffers) (+ num-ws num-ss)))
(ein:notebook-close notebook)