[nongnu] elpa/pacmacs 25e1fc9f85 369/472: Interactive function to clean wall cache (#138)

[ELPA Syncer]

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

    Interactive function to clean wall cache (#138)
---
 pacmacs-image.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 8280aabf34..63a7c8ef8a 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -43,6 +43,10 @@
 (defvar pacmacs--wall-blocks
   (make-hash-table))
 
+(defun pacmacs--clear-wall-cache ()
+  (interactive)
+  (clrhash pacmacs--wall-blocks))
+
 (defun pacmacs-load-image (filename)
   (create-image filename 'xpm nil :heuristic-mask t))
 
@@ -230,8 +234,6 @@
                                'xpm t))
                pacmacs--wall-blocks))))
 
-;; (clrhash pacmacs--wall-blocks)
-
 (provide 'pacmacs-image)
 
 ;;; pacmacs-anim.el ends here