diff options
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 68 |
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); |