fixed fork+rename order

This commit is contained in:
Thomas von Dein
2017-07-18 05:44:02 +02:00
parent e38aa8d545
commit fbc9d943b2

View File

@@ -182,9 +182,9 @@ to $mode-scratch."
(interactive)
(let ((cur (current-buffer)))
(when (eq t autoscratch-fork-after-trigger)
(autoscratch-buffer-rename)
(autoscratch-buffer)
(switch-to-buffer cur)
(autoscratch-buffer-rename))))
(switch-to-buffer cur))))
(defun autoscratch--eval-trigger (form)
"Evaluate FORM.