emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/workspaces: issue notice when switching to same buffer

Browse source
This commit is contained in:
Henrik Lissner 2017-03-01 21:41:16 -05:00
parent 7aa8d54e08
commit 343925e9ac
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/feature/workspaces/autoload/workspaces.el
View file

@ -282,7 +282,8 @@ end of the workspace list."
(string-match-p "^[0-9]+$" index)) (string-match-p "^[0-9]+$" index))
(setq index (string-to-number index))) (setq index (string-to-number index)))
(condition-case ex (condition-case ex
(let ((names (+workspace-list))) (let ((names (+workspace-list))
(old-name (+workspace-current-name)))
(cond ((numberp index) (cond ((numberp index)
(let ((dest (nth index names))) (let ((dest (nth index names)))
(unless dest (unless dest
@ -293,7 +294,9 @@ end of the workspace list."
(error "No workspace named %s" index)) (error "No workspace named %s" index))
(persp-frame-switch index))) (persp-frame-switch index)))
(unless (called-interactively-p 'interactive) (unless (called-interactively-p 'interactive)
(+workspace/display))) (if (equal (+workspace-current-name) old-name)
(+workspace-message (format "Already in %s" old-name) 'warn)
(+workspace/display))))
('error (+workspace-error (cadr ex) t)))) ('error (+workspace-error (cadr ex) t))))
;;;###autoload ;;;###autoload