Mercurial > emacs
comparison src/keyboard.c @ 112434:9de5a68b57e1
Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Sat, 22 Jan 2011 18:56:06 -0800 |
parents | 42e22c4f06b7 |
children |
comparison
equal
deleted
inserted
replaced
112433:7b649f6eac4f | 112434:9de5a68b57e1 |
---|---|
8175 if (!have_label) | 8175 if (!have_label) |
8176 { | 8176 { |
8177 /* Try to make one from caption and key. */ | 8177 /* Try to make one from caption and key. */ |
8178 Lisp_Object key = PROP (TOOL_BAR_ITEM_KEY); | 8178 Lisp_Object key = PROP (TOOL_BAR_ITEM_KEY); |
8179 Lisp_Object capt = PROP (TOOL_BAR_ITEM_CAPTION); | 8179 Lisp_Object capt = PROP (TOOL_BAR_ITEM_CAPTION); |
8180 const char *label = SYMBOLP (key) ? (char *) SDATA (SYMBOL_NAME (key)) : ""; | 8180 const char *label = SYMBOLP (key) ? SSDATA (SYMBOL_NAME (key)) : ""; |
8181 const char *caption = STRINGP (capt) ? (char *) SDATA (capt) : ""; | 8181 const char *caption = STRINGP (capt) ? SSDATA (capt) : ""; |
8182 EMACS_INT max_lbl = 2 * tool_bar_max_label_size; | 8182 EMACS_INT max_lbl = 2 * tool_bar_max_label_size; |
8183 char *buf = (char *) xmalloc (max_lbl + 1); | 8183 char *buf = (char *) xmalloc (max_lbl + 1); |
8184 Lisp_Object new_lbl; | 8184 Lisp_Object new_lbl; |
8185 size_t caption_len = strlen (caption); | 8185 size_t caption_len = strlen (caption); |
8186 | 8186 |
12296 mark_object (event->frame_or_window); | 12296 mark_object (event->frame_or_window); |
12297 mark_object (event->arg); | 12297 mark_object (event->arg); |
12298 } | 12298 } |
12299 } | 12299 } |
12300 } | 12300 } |
12301 |