[nongnu] elpa/pacmacs 2473e65744 268/472: Remove dead left overs of #141

[ELPA Syncer]

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

    Remove dead left overs of #141
---
 pacmacs-image.el           | 15 ---------------
 test/pacmacs-image-test.el | 26 --------------------------
 2 files changed, 41 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 1043589560..323946fcd0 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -34,7 +34,6 @@
 
 (require 'dash)
 
-(defconst pacmacs--flip-xbm-bits (eq system-type 'windows-nt))
 (defvar pacmacs--wall-blocks
   (make-hash-table))
 
@@ -44,20 +43,6 @@
 (defun pacmacs-insert-image (resource resource-vector)
   (insert-image resource " " nil resource-vector))
 
-(defun pacmacs-create-color-block (width height color)
-  (apply
-   #'create-image
-   (make-vector
-    width (make-bool-vector height t))
-   'xbm t :width width :height height
-   (if (not pacmacs--flip-xbm-bits)
-       (list
-        :foreground color
-        :background nil)
-     (list
-      :foreground nil
-      :background color))))
-
 (defun pacmacs--put-bits-dot (bits row column weight)
   (dotimes (i weight)
     (dotimes (j weight)
diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index aebc7999b6..9fd7ccc745 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -10,32 +10,6 @@
      (mock (insert-image resource " " nil resource-vector) => 42 :times 1)
      (should (= 42 (pacmacs-insert-image resource resource-vector))))))
 
-(ert-deftest pacmacs-create-color-block-test ()
-  (let ((width 10)
-        (height 20)
-        (color "red")
-        (bool-vector-result 42)
-        (make-vector-result 43)
-        (create-image-result 44))
-    (with-mock
-     (mock (make-bool-vector height t) => bool-vector-result :times 1)
-     (mock (make-vector width bool-vector-result) => make-vector-result :times 
1)
-
-     (if (not pacmacs--flip-xbm-bits)
-         (mock (create-image make-vector-result
-                             'xbm t
-                             :width width :height height
-                             :foreground color
-                             :background nil) => create-image-result :times 1)
-       (mock (create-image make-vector-result
-                           'xbm t
-                           :width width :height height
-                           :foreground nil
-                           :background color) => create-image-result :times 1))
-
-     (should (equal create-image-result
-                    (pacmacs-create-color-block width height color))))))
-
 (ert-deftest pacmacs--put-bits-dot-test ()
   (let ((input-bits (pacmacs--construct-2d-bool-vector
                      '((nil nil nil)