aboutsummaryrefslogtreecommitdiffstats
path: root/src/frame.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/frame.c')
-rw-r--r--src/frame.c68
1 files changed, 34 insertions, 34 deletions
diff --git a/src/frame.c b/src/frame.c
index 961c42c0976..20bad4cb8c5 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -693,7 +693,7 @@ affects all frames on the same terminal device. */)
693 if (!NILP (tty)) 693 if (!NILP (tty))
694 { 694 {
695 name = (char *) alloca (SBYTES (tty) + 1); 695 name = (char *) alloca (SBYTES (tty) + 1);
696 strncpy (name, SDATA (tty), SBYTES (tty)); 696 strncpy (name, SSDATA (tty), SBYTES (tty));
697 name[SBYTES (tty)] = 0; 697 name[SBYTES (tty)] = 0;
698 } 698 }
699 699
@@ -704,7 +704,7 @@ affects all frames on the same terminal device. */)
704 if (!NILP (tty_type)) 704 if (!NILP (tty_type))
705 { 705 {
706 type = (char *) alloca (SBYTES (tty_type) + 1); 706 type = (char *) alloca (SBYTES (tty_type) + 1);
707 strncpy (type, SDATA (tty_type), SBYTES (tty_type)); 707 strncpy (type, SSDATA (tty_type), SBYTES (tty_type));
708 type[SBYTES (tty_type)] = 0; 708 type[SBYTES (tty_type)] = 0;
709 } 709 }
710 710
@@ -2176,7 +2176,7 @@ set_term_frame_name (struct frame *f, Lisp_Object name)
2176 2176
2177 /* Check for no change needed in this very common case 2177 /* Check for no change needed in this very common case
2178 before we do any consing. */ 2178 before we do any consing. */
2179 if (frame_name_fnn_p (SDATA (f->name), 2179 if (frame_name_fnn_p (SSDATA (f->name),
2180 SBYTES (f->name))) 2180 SBYTES (f->name)))
2181 return; 2181 return;
2182 2182
@@ -2194,7 +2194,7 @@ set_term_frame_name (struct frame *f, Lisp_Object name)
2194 2194
2195 /* Don't allow the user to set the frame name to F<num>, so it 2195 /* Don't allow the user to set the frame name to F<num>, so it
2196 doesn't clash with the names we generate for terminal frames. */ 2196 doesn't clash with the names we generate for terminal frames. */
2197 if (frame_name_fnn_p (SDATA (name), SBYTES (name))) 2197 if (frame_name_fnn_p (SSDATA (name), SBYTES (name)))
2198 error ("Frame names of the form F<num> are usurped by Emacs"); 2198 error ("Frame names of the form F<num> are usurped by Emacs");
2199 } 2199 }
2200 2200
@@ -2321,11 +2321,11 @@ If FRAME is omitted, return information on the currently selected frame. */)
2321 elt = Fassq (Qforeground_color, alist); 2321 elt = Fassq (Qforeground_color, alist);
2322 if (CONSP (elt) && STRINGP (XCDR (elt))) 2322 if (CONSP (elt) && STRINGP (XCDR (elt)))
2323 { 2323 {
2324 if (strncmp (SDATA (XCDR (elt)), 2324 if (strncmp (SSDATA (XCDR (elt)),
2325 unspecified_bg, 2325 unspecified_bg,
2326 SCHARS (XCDR (elt))) == 0) 2326 SCHARS (XCDR (elt))) == 0)
2327 store_in_alist (&alist, Qforeground_color, tty_color_name (f, bg)); 2327 store_in_alist (&alist, Qforeground_color, tty_color_name (f, bg));
2328 else if (strncmp (SDATA (XCDR (elt)), 2328 else if (strncmp (SSDATA (XCDR (elt)),
2329 unspecified_fg, 2329 unspecified_fg,
2330 SCHARS (XCDR (elt))) == 0) 2330 SCHARS (XCDR (elt))) == 0)
2331 store_in_alist (&alist, Qforeground_color, tty_color_name (f, fg)); 2331 store_in_alist (&alist, Qforeground_color, tty_color_name (f, fg));
@@ -2335,11 +2335,11 @@ If FRAME is omitted, return information on the currently selected frame. */)
2335 elt = Fassq (Qbackground_color, alist); 2335 elt = Fassq (Qbackground_color, alist);
2336 if (CONSP (elt) && STRINGP (XCDR (elt))) 2336 if (CONSP (elt) && STRINGP (XCDR (elt)))
2337 { 2337 {
2338 if (strncmp (SDATA (XCDR (elt)), 2338 if (strncmp (SSDATA (XCDR (elt)),
2339 unspecified_fg, 2339 unspecified_fg,
2340 SCHARS (XCDR (elt))) == 0) 2340 SCHARS (XCDR (elt))) == 0)
2341 store_in_alist (&alist, Qbackground_color, tty_color_name (f, fg)); 2341 store_in_alist (&alist, Qbackground_color, tty_color_name (f, fg));
2342 else if (strncmp (SDATA (XCDR (elt)), 2342 else if (strncmp (SSDATA (XCDR (elt)),
2343 unspecified_bg, 2343 unspecified_bg,
2344 SCHARS (XCDR (elt))) == 0) 2344 SCHARS (XCDR (elt))) == 0)
2345 store_in_alist (&alist, Qbackground_color, tty_color_name (f, bg)); 2345 store_in_alist (&alist, Qbackground_color, tty_color_name (f, bg));
@@ -2428,7 +2428,7 @@ If FRAME is nil, describe the currently selected frame. */)
2428 2428
2429 if (EQ (parameter, Qbackground_color)) 2429 if (EQ (parameter, Qbackground_color))
2430 { 2430 {
2431 color_name = SDATA (value); 2431 color_name = SSDATA (value);
2432 csz = SCHARS (value); 2432 csz = SCHARS (value);
2433 if (strncmp (color_name, unspecified_bg, csz) == 0) 2433 if (strncmp (color_name, unspecified_bg, csz) == 0)
2434 value = tty_color_name (f, FRAME_BACKGROUND_PIXEL (f)); 2434 value = tty_color_name (f, FRAME_BACKGROUND_PIXEL (f));
@@ -2437,7 +2437,7 @@ If FRAME is nil, describe the currently selected frame. */)
2437 } 2437 }
2438 else if (EQ (parameter, Qforeground_color)) 2438 else if (EQ (parameter, Qforeground_color))
2439 { 2439 {
2440 color_name = SDATA (value); 2440 color_name = SSDATA (value);
2441 csz = SCHARS (value); 2441 csz = SCHARS (value);
2442 if (strncmp (color_name, unspecified_fg, csz) == 0) 2442 if (strncmp (color_name, unspecified_fg, csz) == 0)
2443 value = tty_color_name (f, FRAME_FOREGROUND_PIXEL (f)); 2443 value = tty_color_name (f, FRAME_FOREGROUND_PIXEL (f));
@@ -3307,16 +3307,16 @@ x_set_font (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
3307 fontset = fs_query_fontset (arg, 0); 3307 fontset = fs_query_fontset (arg, 0);
3308 if (fontset < 0) 3308 if (fontset < 0)
3309 { 3309 {
3310 font_object = font_open_by_name (f, SDATA (arg)); 3310 font_object = font_open_by_name (f, SSDATA (arg));
3311 if (NILP (font_object)) 3311 if (NILP (font_object))
3312 error ("Font `%s' is not defined", SDATA (arg)); 3312 error ("Font `%s' is not defined", SSDATA (arg));
3313 arg = AREF (font_object, FONT_NAME_INDEX); 3313 arg = AREF (font_object, FONT_NAME_INDEX);
3314 } 3314 }
3315 else if (fontset > 0) 3315 else if (fontset > 0)
3316 { 3316 {
3317 Lisp_Object ascii_font = fontset_ascii (fontset); 3317 Lisp_Object ascii_font = fontset_ascii (fontset);
3318 3318
3319 font_object = font_open_by_name (f, SDATA (ascii_font)); 3319 font_object = font_open_by_name (f, SSDATA (ascii_font));
3320 if (NILP (font_object)) 3320 if (NILP (font_object))
3321 error ("Font `%s' is not defined", SDATA (arg)); 3321 error ("Font `%s' is not defined", SDATA (arg));
3322 arg = AREF (font_object, FONT_NAME_INDEX); 3322 arg = AREF (font_object, FONT_NAME_INDEX);
@@ -3394,7 +3394,7 @@ x_set_font_backend (struct frame *f, Lisp_Object new_value, Lisp_Object old_valu
3394 char *p0, *p1; 3394 char *p0, *p1;
3395 3395
3396 CHECK_STRING (new_value); 3396 CHECK_STRING (new_value);
3397 p0 = p1 = SDATA (new_value); 3397 p0 = p1 = SSDATA (new_value);
3398 new_value = Qnil; 3398 new_value = Qnil;
3399 while (*p0) 3399 while (*p0)
3400 { 3400 {
@@ -3771,23 +3771,23 @@ xrdb_get_resource (XrmDatabase rdb, Lisp_Object attribute, Lisp_Object class, Li
3771 3771
3772 /* Start with emacs.FRAMENAME for the name (the specific one) 3772 /* Start with emacs.FRAMENAME for the name (the specific one)
3773 and with `Emacs' for the class key (the general one). */ 3773 and with `Emacs' for the class key (the general one). */
3774 strcpy (name_key, SDATA (Vx_resource_name)); 3774 strcpy (name_key, SSDATA (Vx_resource_name));
3775 strcpy (class_key, SDATA (Vx_resource_class)); 3775 strcpy (class_key, SSDATA (Vx_resource_class));
3776 3776
3777 strcat (class_key, "."); 3777 strcat (class_key, ".");
3778 strcat (class_key, SDATA (class)); 3778 strcat (class_key, SSDATA (class));
3779 3779
3780 if (!NILP (component)) 3780 if (!NILP (component))
3781 { 3781 {
3782 strcat (class_key, "."); 3782 strcat (class_key, ".");
3783 strcat (class_key, SDATA (subclass)); 3783 strcat (class_key, SSDATA (subclass));
3784 3784
3785 strcat (name_key, "."); 3785 strcat (name_key, ".");
3786 strcat (name_key, SDATA (component)); 3786 strcat (name_key, SSDATA (component));
3787 } 3787 }
3788 3788
3789 strcat (name_key, "."); 3789 strcat (name_key, ".");
3790 strcat (name_key, SDATA (attribute)); 3790 strcat (name_key, SSDATA (attribute));
3791 3791
3792 value = x_get_string_resource (rdb, name_key, class_key); 3792 value = x_get_string_resource (rdb, name_key, class_key);
3793 3793
@@ -3904,25 +3904,25 @@ x_get_arg (Display_Info *dpyinfo, Lisp_Object alist, Lisp_Object param,
3904 switch (type) 3904 switch (type)
3905 { 3905 {
3906 case RES_TYPE_NUMBER: 3906 case RES_TYPE_NUMBER:
3907 return make_number (atoi (SDATA (tem))); 3907 return make_number (atoi (SSDATA (tem)));
3908 3908
3909 case RES_TYPE_BOOLEAN_NUMBER: 3909 case RES_TYPE_BOOLEAN_NUMBER:
3910 if (!strcmp (SDATA (tem), "on") 3910 if (!strcmp (SSDATA (tem), "on")
3911 || !strcmp (SDATA (tem), "true")) 3911 || !strcmp (SSDATA (tem), "true"))
3912 return make_number (1); 3912 return make_number (1);
3913 return make_number (atoi (SDATA (tem))); 3913 return make_number (atoi (SSDATA (tem)));
3914 break; 3914 break;
3915 3915
3916 case RES_TYPE_FLOAT: 3916 case RES_TYPE_FLOAT:
3917 return make_float (atof (SDATA (tem))); 3917 return make_float (atof (SSDATA (tem)));
3918 3918
3919 case RES_TYPE_BOOLEAN: 3919 case RES_TYPE_BOOLEAN:
3920 tem = Fdowncase (tem); 3920 tem = Fdowncase (tem);
3921 if (!strcmp (SDATA (tem), "on") 3921 if (!strcmp (SSDATA (tem), "on")
3922#ifdef HAVE_NS 3922#ifdef HAVE_NS
3923 || !strcmp(SDATA(tem), "yes") 3923 || !strcmp (SSDATA (tem), "yes")
3924#endif 3924#endif
3925 || !strcmp (SDATA (tem), "true")) 3925 || !strcmp (SSDATA (tem), "true"))
3926 return Qt; 3926 return Qt;
3927 else 3927 else
3928 return Qnil; 3928 return Qnil;
@@ -3936,17 +3936,17 @@ x_get_arg (Display_Info *dpyinfo, Lisp_Object alist, Lisp_Object param,
3936 { 3936 {
3937 Lisp_Object lower; 3937 Lisp_Object lower;
3938 lower = Fdowncase (tem); 3938 lower = Fdowncase (tem);
3939 if (!strcmp (SDATA (lower), "on") 3939 if (!strcmp (SSDATA (lower), "on")
3940#ifdef HAVE_NS 3940#ifdef HAVE_NS
3941 || !strcmp(SDATA(lower), "yes") 3941 || !strcmp (SSDATA (lower), "yes")
3942#endif 3942#endif
3943 || !strcmp (SDATA (lower), "true")) 3943 || !strcmp (SSDATA (lower), "true"))
3944 return Qt; 3944 return Qt;
3945 else if (!strcmp (SDATA (lower), "off") 3945 else if (!strcmp (SSDATA (lower), "off")
3946#ifdef HAVE_NS 3946#ifdef HAVE_NS
3947 || !strcmp(SDATA(lower), "no") 3947 || !strcmp (SSDATA (lower), "no")
3948#endif 3948#endif
3949 || !strcmp (SDATA (lower), "false")) 3949 || !strcmp (SSDATA (lower), "false"))
3950 return Qnil; 3950 return Qnil;
3951 else 3951 else
3952 return Fintern (tem, Qnil); 3952 return Fintern (tem, Qnil);