Replace obsolete functions/commands

This commit is contained in:
Henrik Lissner 2017-04-17 02:19:20 -04:00
parent ed2e7a65f6
commit e204df3c05
9 changed files with 11 additions and 11 deletions

View file

@ -333,7 +333,7 @@ end of the workspace list."
(condition-case ex
(let* ((persps (+workspace-list))
(perspc (length persps))
(index (position current-name persps)))
(index (cl-position current-name persps)))
(when (= perspc 1)
(user-error "No other workspaces"))
(+workspace/switch-to (% (+ index n) perspc))