Fix prefix arg for +workspace/new

This commit is contained in:
Henrik Lissner 2020-10-04 23:17:50 -04:00
parent a7c3c5a9d2
commit ea35023765
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -294,7 +294,7 @@ workspace to delete."
(defun +workspace/new (&optional name clone-p)
"Create a new workspace named NAME. If CLONE-P is non-nil, clone the current
workspace, otherwise the new workspace is blank."
(interactive "iP")
(interactive (list nil current-prefix-arg))
(unless name
(setq name (format "#%s" (+workspace--generate-id))))
(condition-case e