sqrtminusone/perspective-exwm.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/perspective-exwm.el.git synced 2025-12-10 20:53:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #1 from syohex/byte-compile-warnings

Browse source 
Fix byte-compile warnings
This commit is contained in:
Pavel Korytov 2021-12-25 17:11:28 +03:00 • committed by GitHub
commit 26179187bb
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
perspective-exwm.el
View file

@ -220,7 +220,7 @@ If MOVE is t, move the perspective instead."
(error "Perspective with name \"%s\" already exists on the target workspace" persp-name)) (error "Perspective with name \"%s\" already exists on the target workspace" persp-name))
(with-selected-frame target-workspace (with-selected-frame target-workspace
(with-perspective persp-name (with-perspective persp-name
(mapcar #'persp-add-buffer buffers) (mapc #'persp-add-buffer buffers)
(burly-open-url url)) (burly-open-url url))
(persp-switch persp-name) (persp-switch persp-name)
(persp-update-modestring)) (persp-update-modestring))
@ -367,8 +367,7 @@ e.g. like this:
((or \"Firefox\" \"Nightly\") (perspective-exwm-assign-window ((or \"Firefox\" \"Nightly\") (perspective-exwm-assign-window
:workspace-index 2 :workspace-index 2
:persp-name \"browser\"))))" :persp-name \"browser\"))))"
(let ((buffer-name (buffer-name)) (let ((buffer (current-buffer)))
(buffer (current-buffer)))
(when (and workspace-index (not (= workspace-index exwm-workspace-current-index))) (when (and workspace-index (not (= workspace-index exwm-workspace-current-index)))
(exwm-workspace-move-window workspace-index)) (exwm-workspace-move-window workspace-index))
(when persp-name (when persp-name