Fix prefix arg for +workspace/new
This commit is contained in:
parent
a7c3c5a9d2
commit
ea35023765
1 changed files with 1 additions and 1 deletions
|
@ -294,7 +294,7 @@ workspace to delete."
|
||||||
(defun +workspace/new (&optional name clone-p)
|
(defun +workspace/new (&optional name clone-p)
|
||||||
"Create a new workspace named NAME. If CLONE-P is non-nil, clone the current
|
"Create a new workspace named NAME. If CLONE-P is non-nil, clone the current
|
||||||
workspace, otherwise the new workspace is blank."
|
workspace, otherwise the new workspace is blank."
|
||||||
(interactive "iP")
|
(interactive (list nil current-prefix-arg))
|
||||||
(unless name
|
(unless name
|
||||||
(setq name (format "#%s" (+workspace--generate-id))))
|
(setq name (format "#%s" (+workspace--generate-id))))
|
||||||
(condition-case e
|
(condition-case e
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue