From b01cdf53a45a60332de48285d510790907152ea8 Mon Sep 17 00:00:00 2001 From: Jared Finder Date: Mon, 8 Jan 2024 13:20:25 -0800 Subject: [PATCH] * lisp/tool-bar.el (tool-bar-make-keymap-1): Populate on terminals --- lisp/tool-bar.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 4ca81fb01e0..36a80522c83 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el @@ -180,15 +180,14 @@ tool-bar-make-keymap-1 (consp image-exp) (not (eq (car image-exp) 'image)) (fboundp (car image-exp))) - (if (not (display-images-p)) - (setq bind nil) - (let ((image (eval image-exp))) - (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) - bind)) - (plist-put plist :image image)))) + (let ((image (and (display-images-p) + (eval image-exp)))) + (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) + bind)) + (plist-put plist :image image))) bind)) (or map tool-bar-map))) -- 2.39.2