From 637ac157192dcae0785cc27a613bc59626950592 Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Sun, 6 Sep 2015 17:18:48 +0800
Subject: [PATCH] Code cleanups

* exwm-workspace.el (exwm-workspace--update-switch-history): use `aref' instead
  of `elt' to index vectors
* .elpaignore: ignore README.md
---
 .elpaignore       | 1 +
 exwm-workspace.el | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)
 create mode 100644 .elpaignore

diff --git a/.elpaignore b/.elpaignore
new file mode 100644
index 0000000..b43bf86
--- /dev/null
+++ b/.elpaignore
@@ -0,0 +1 @@
+README.md
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 9cf1ff0..2ea8d1f 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))))