[nongnu] elpa/pacmacs 52fec0d180 241/472: Normalize wall generating bits (#131)

[ELPA Syncer]

branch: elpa/pacmacs
commit 52fec0d1801b10b87353d6ce3ebf8a18a4e11fa6
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Normalize wall generating bits (#131)
---
 pacmacs-image.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 0d5e28953c..7a0749054d 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -90,8 +90,18 @@
   (let ((cache-index
          (pacmacs--bit-list-to-integer
           (list bottom right top left
-                left-upper right-upper
-                left-bottom right-bottom))))
+                (and left-upper
+                     (not left)
+                     (not top))
+                (and right-upper
+                     (not right)
+                     (not top))
+                (and left-bottom
+                     (not left)
+                     (not bottom))
+                (and right-bottom
+                     (not right)
+                     (not bottom))))))
     (-if-let (cached-tile (gethash cache-index pacmacs--wall-blocks))
         cached-tile
       (puthash cache-index