aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/help.el2
-rw-r--r--lisp/tooltip.el5
-rw-r--r--src/gtkutil.c22
3 files changed, 19 insertions, 10 deletions
diff --git a/lisp/help.el b/lisp/help.el
index 79d8296cfed..d4be9aa7200 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -210,7 +210,7 @@ Do not call this in the scope of `with-help-window'."
210\\[describe-key] KEYS Display the full documentation for the key sequence. 210\\[describe-key] KEYS Display the full documentation for the key sequence.
211\\[Info-goto-emacs-key-command-node] KEYS Show the Emacs manual's section for the command bound to KEYS. 211\\[Info-goto-emacs-key-command-node] KEYS Show the Emacs manual's section for the command bound to KEYS.
212\\[view-lossage] Show last 300 input keystrokes (lossage). 212\\[view-lossage] Show last 300 input keystrokes (lossage).
213\\[describe-language-environment] LANG-ENV Describes a specific language environment, or RET for current. 213\\[describe-language-environment] LANG-ENV Describe a specific language environment, or RET for current.
214\\[describe-mode] Display documentation of current minor modes and current major mode, 214\\[describe-mode] Display documentation of current minor modes and current major mode,
215 including their special commands. 215 including their special commands.
216\\[view-emacs-news] Display news of recent Emacs changes. 216\\[view-emacs-news] Display news of recent Emacs changes.
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index af3b86bba71..293c0343956 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -131,7 +131,10 @@ of the `tooltip' face are used instead."
131 :inherit variable-pitch) 131 :inherit variable-pitch)
132 (t 132 (t
133 :inherit variable-pitch)) 133 :inherit variable-pitch))
134 "Face for tooltips." 134 "Face for tooltips.
135
136When using the GTK toolkit, this face will only be used if
137`x-gtk-use-system-tooltips' is non-nil."
135 :group 'basic-faces) 138 :group 'basic-faces)
136 139
137(defcustom tooltip-use-echo-area nil 140(defcustom tooltip-use-echo-area nil
diff --git a/src/gtkutil.c b/src/gtkutil.c
index 11e59b9fae5..4634c35dd4c 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -5014,11 +5014,10 @@ update_frame_tool_bar (struct frame *f)
5014 GtkWidget *wbutton = NULL; 5014 GtkWidget *wbutton = NULL;
5015 Lisp_Object specified_file; 5015 Lisp_Object specified_file;
5016 bool vert_only = ! NILP (PROP (TOOL_BAR_ITEM_VERT_ONLY)); 5016 bool vert_only = ! NILP (PROP (TOOL_BAR_ITEM_VERT_ONLY));
5017 const char *label 5017 Lisp_Object label
5018 = (EQ (style, Qimage) || (vert_only && horiz)) ? NULL 5018 = (EQ (style, Qimage) || (vert_only && horiz))
5019 : STRINGP (PROP (TOOL_BAR_ITEM_LABEL)) 5019 ? Qnil
5020 ? SSDATA (PROP (TOOL_BAR_ITEM_LABEL)) 5020 : PROP (TOOL_BAR_ITEM_LABEL);
5021 : "";
5022 5021
5023 ti = gtk_toolbar_get_nth_item (GTK_TOOLBAR (wtoolbar), j); 5022 ti = gtk_toolbar_get_nth_item (GTK_TOOLBAR (wtoolbar), j);
5024 5023
@@ -5131,8 +5130,11 @@ update_frame_tool_bar (struct frame *f)
5131 5130
5132 /* If there is an existing widget, check if it's stale; if so, 5131 /* If there is an existing widget, check if it's stale; if so,
5133 remove it and make a new tool item from scratch. */ 5132 remove it and make a new tool item from scratch. */
5134 if (ti && xg_tool_item_stale_p (wbutton, stock_name, icon_name, 5133 if (ti && xg_tool_item_stale_p (wbutton, stock_name, icon_name, img,
5135 img, label, horiz)) 5134 NILP (label)
5135 ? NULL
5136 : STRINGP (label) ? SSDATA (label) : "",
5137 horiz))
5136 { 5138 {
5137 gtk_container_remove (GTK_CONTAINER (wtoolbar), 5139 gtk_container_remove (GTK_CONTAINER (wtoolbar),
5138 GTK_WIDGET (ti)); 5140 GTK_WIDGET (ti));
@@ -5189,7 +5191,11 @@ update_frame_tool_bar (struct frame *f)
5189#else 5191#else
5190 if (w) gtk_misc_set_padding (GTK_MISC (w), hmargin, vmargin); 5192 if (w) gtk_misc_set_padding (GTK_MISC (w), hmargin, vmargin);
5191#endif 5193#endif
5192 ti = xg_make_tool_item (f, w, &wbutton, label, i, horiz, text_image); 5194 ti = xg_make_tool_item (f, w, &wbutton,
5195 NILP (label)
5196 ? NULL
5197 : STRINGP (label) ? SSDATA (label) : "",
5198 i, horiz, text_image);
5193 gtk_toolbar_insert (GTK_TOOLBAR (wtoolbar), ti, j); 5199 gtk_toolbar_insert (GTK_TOOLBAR (wtoolbar), ti, j);
5194 } 5200 }
5195 5201