1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00

(tool-bar-make-keymap): Additional minor fix.

This commit is contained in:
Chong Yidong 2008-05-13 18:02:44 +00:00
parent bbfc05182a
commit 6a9cbb8592

View File

@ -106,7 +106,7 @@ color capability and based on the available image libraries."
(if (not (display-images-p))
(setq bind nil)
(let ((image (eval image-exp)))
(unless (image-mask-p image)
(unless (and image (image-mask-p image))
(setq image (append image '(:mask heuristic))))
(setq bind (copy-sequence bind)
plist (nthcdr (if (consp (nth 4 bind)) 5 4)