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

View file

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