mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a workspace switch issue

Browse source 
* exwm-workspace.el (exwm-workspace--switch-map-nth-prefix):
Add more checking conditions.
This commit is contained in:
Chris Feng 2016-07-19 19:16:19 +08:00
parent b409d873b6
commit 37e51e65ad
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
exwm-workspace.el
View file

@ -337,11 +337,17 @@ PREFIX-DIGITS is a list of the digits introduced so far."
(* o x))
prefix-digits)))
(n (+ pn d))
(num-workspaces (exwm-workspace--count)))
(if (= (length prefix-digits)
(floor (log (1- num-workspaces) 10)))
prefix-length index-max index-length)
(if (or (= n 0)
(> n
(setq index-max (1- (exwm-workspace--count))))
(>= (setq prefix-length (length prefix-digits))
(setq index-length (floor (log index-max 10))))
;; Check if it's still possible to do a match.
(> (* n (expt 10 (- index-length prefix-length)))
index-max))
(exwm-workspace--switch-map-select-nth n)
;; go ahead if there are enough digits to select any workspace.
;; Go ahead if there are enough digits to select any workspace.
(set-transient-map
(let ((map (make-sparse-keymap))
(cmd `(lambda ()