Add scratch-log-start

以下のような設定が反映されないので、scratch-log-startという関数を新たにつくって対処しました。

```lisp
 (setq sl-restore-scratch-p nil)
 (setq sl-prohibit-kill-scratch-buffer-p nil)
```