diff options
| author | Chong Yidong | 2008-05-13 18:02:44 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-05-13 18:02:44 +0000 |
| commit | 6a9cbb8592b19d2abd9c75cc307a0813322a5002 (patch) | |
| tree | 81594f7109ed95925c24ff47a16f4d49a9b50ebc | |
| parent | bbfc05182a17a8af53e1191340272c1c3e63cdfa (diff) | |
| download | emacs-6a9cbb8592b19d2abd9c75cc307a0813322a5002.tar.gz emacs-6a9cbb8592b19d2abd9c75cc307a0813322a5002.zip | |
(tool-bar-make-keymap): Additional minor fix.
| -rw-r--r-- | lisp/tool-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 48ad887ddd1..c47cab0af40 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el | |||
| @@ -106,7 +106,7 @@ color capability and based on the available image libraries." | |||
| 106 | (if (not (display-images-p)) | 106 | (if (not (display-images-p)) |
| 107 | (setq bind nil) | 107 | (setq bind nil) |
| 108 | (let ((image (eval image-exp))) | 108 | (let ((image (eval image-exp))) |
| 109 | (unless (image-mask-p image) | 109 | (unless (and image (image-mask-p image)) |
| 110 | (setq image (append image '(:mask heuristic)))) | 110 | (setq image (append image '(:mask heuristic)))) |
| 111 | (setq bind (copy-sequence bind) | 111 | (setq bind (copy-sequence bind) |
| 112 | plist (nthcdr (if (consp (nth 4 bind)) 5 4) | 112 | plist (nthcdr (if (consp (nth 4 bind)) 5 4) |