Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Code cleanups

Browse source 
* exwm-workspace.el (exwm-workspace--update-switch-history): use `aref' instead
  of `elt' to index vectors
* .elpaignore: ignore README.md
This commit is contained in:
Chris Feng 2015-09-06 17:18:48 +08:00
parent 6d63c71280
commit 637ac15719
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.elpaignore Normal file
View file

@ -0,0 +1 @@
README.md

4
exwm-workspace.el
View file

@ -72,7 +72,7 @@
(dolist (i exwm--id-buffer-alist) (dolist (i exwm--id-buffer-alist)
(with-current-buffer (cdr i) (with-current-buffer (cdr i)
(when exwm--frame (when exwm--frame
(setf (elt not-empty (cl-position exwm--frame exwm-workspace--list)) (setf (aref not-empty (cl-position exwm--frame exwm-workspace--list))
t)))) t))))
(setq exwm-workspace--switch-history (setq exwm-workspace--switch-history
(mapcar (mapcar
@ -86,7 +86,7 @@
(cond ((frame-parameter (elt exwm-workspace--list j) (cond ((frame-parameter (elt exwm-workspace--list j)
'exwm--urgency) 'exwm--urgency)
'(:foreground "orange")) '(:foreground "orange"))
((elt not-empty j) '(:foreground "green")) ((aref not-empty j) '(:foreground "green"))
(t nil))))) (t nil)))))
sequence "")) sequence ""))
sequence)))) sequence))))