diff options
Diffstat (limited to 'chess-images.el')
| -rw-r--r-- | chess-images.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/chess-images.el b/chess-images.el index ff90c49..d8dfba9 100644 --- a/chess-images.el +++ b/chess-images.el @@ -181,9 +181,12 @@ called." (x-display-pixel-width display) (display-pixel-width)) 20))))) +(chess-message-catalog 'english + '((no-images . "Cannot find any piece images; check `chess-images-directory'"))) + (defun chess-images-popup () (unless chess-images-size - (error "Cannot find any piece images; check `chess-images-directory'")) + (chess-error 'no-images)) (if chess-images-separate-frame (let* ((size (float (+ (* (or chess-images-border-width 0) 8) (* chess-images-size 8)))) @@ -411,9 +414,13 @@ This is necessary for bizzare Emacs reasons." (create-image file nil (string-match "\\`/\\* XPM \\*/" file) :color-symbols syms)))) +(chess-message-catalog 'english + '((piece-images-loading . "Loading chess piece images...") + (piece-images-loaded . "Loading chess piece images...done"))) + (defun chess-images-init-cache () "Initialize the display image cache." - (message "Loading chess piece images...") + (chess-message 'piece-images-loading) ;; Make a vector of two vectors of 6-item vectors: each piece of ;; each color on each color square; and lastly two slots for the ;; blank squares @@ -496,7 +503,7 @@ This is necessary for bizzare Emacs reasons." chess-images-border-width) nil t :color-symbols (list (cons "background" chess-images-border-color)))))) - (message "Loading chess piece images...done")) + (chess-message 'piece-images-loaded)) (provide 'chess-images) |