diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-09-06T09·18+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-09-06T09·18+0800 |
| commit | 637ac157192dcae0785cc27a613bc59626950592 (patch) | |
| tree | 2647b58b0d83aed51490104176a6fcca73a5cc1a | |
| parent | 6d63c712808bcb12ce7190999d17c4a0d6959cdb (diff) | |
Code cleanups
* exwm-workspace.el (exwm-workspace--update-switch-history): use `aref' instead of `elt' to index vectors * .elpaignore: ignore README.md
| -rw-r--r-- | .elpaignore | 1 | ||||
| -rw-r--r-- | exwm-workspace.el | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/.elpaignore b/.elpaignore new file mode 100644 index 000000000000..b43bf86b50fd --- /dev/null +++ b/.elpaignore @@ -0,0 +1 @@ +README.md diff --git a/exwm-workspace.el b/exwm-workspace.el index 9cf1ff050900..2ea8d1fb169b 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -72,7 +72,7 @@ (dolist (i exwm--id-buffer-alist) (with-current-buffer (cdr i) (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)))) (setq exwm-workspace--switch-history (mapcar @@ -86,7 +86,7 @@ (cond ((frame-parameter (elt exwm-workspace--list j) 'exwm--urgency) '(:foreground "orange")) - ((elt not-empty j) '(:foreground "green")) + ((aref not-empty j) '(:foreground "green")) (t nil))))) sequence "")) sequence)))) |