Mercurial > emacs
comparison src/xdisp.c @ 40237:03a224de9aa7
(display_prop_string_p): Remove unused local declaration
of `Qwhen'.
(single_display_prop_string_p): Remove unused local declarations
of `Qwhen' and `Qmargin'.
(string_buffer_position): Remove unused variable `around'.
(store_frame_title): Remove unused variable `width'.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Wed, 24 Oct 2001 07:03:23 +0000 |
parents | 58c5e5aacc45 |
children | ed0417fa10cb |
comparison
equal
deleted
inserted
replaced
40236:cfec9610f2fe | 40237:03a224de9aa7 |
---|---|
3136 | 3136 |
3137 static int | 3137 static int |
3138 single_display_prop_string_p (prop, string) | 3138 single_display_prop_string_p (prop, string) |
3139 Lisp_Object prop, string; | 3139 Lisp_Object prop, string; |
3140 { | 3140 { |
3141 extern Lisp_Object Qwhen, Qmargin; | |
3142 | |
3143 if (EQ (string, prop)) | 3141 if (EQ (string, prop)) |
3144 return 1; | 3142 return 1; |
3145 | 3143 |
3146 /* Skip over `when FORM'. */ | 3144 /* Skip over `when FORM'. */ |
3147 if (CONSP (prop) && EQ (XCAR (prop), Qwhen)) | 3145 if (CONSP (prop) && EQ (XCAR (prop), Qwhen)) |
3173 | 3171 |
3174 static int | 3172 static int |
3175 display_prop_string_p (prop, string) | 3173 display_prop_string_p (prop, string) |
3176 Lisp_Object prop, string; | 3174 Lisp_Object prop, string; |
3177 { | 3175 { |
3178 extern Lisp_Object Qwhen, Qmargin; | |
3179 | |
3180 if (CONSP (prop) | 3176 if (CONSP (prop) |
3181 && CONSP (XCAR (prop)) | 3177 && CONSP (XCAR (prop)) |
3182 && !EQ (Qmargin, XCAR (XCAR (prop)))) | 3178 && !EQ (Qmargin, XCAR (XCAR (prop)))) |
3183 { | 3179 { |
3184 /* A list of sub-properties. */ | 3180 /* A list of sub-properties. */ |
3220 string_buffer_position (w, string, around_charpos) | 3216 string_buffer_position (w, string, around_charpos) |
3221 struct window *w; | 3217 struct window *w; |
3222 Lisp_Object string; | 3218 Lisp_Object string; |
3223 int around_charpos; | 3219 int around_charpos; |
3224 { | 3220 { |
3225 Lisp_Object around = make_number (around_charpos); | |
3226 Lisp_Object limit, prop, pos; | 3221 Lisp_Object limit, prop, pos; |
3227 const int MAX_DISTANCE = 1000; | 3222 const int MAX_DISTANCE = 1000; |
3228 int found = 0; | 3223 int found = 0; |
3229 | 3224 |
3230 pos = make_number (around_charpos); | 3225 pos = make_number (around_charpos); |
7138 store_frame_title (str, field_width, precision) | 7133 store_frame_title (str, field_width, precision) |
7139 unsigned char *str; | 7134 unsigned char *str; |
7140 int field_width, precision; | 7135 int field_width, precision; |
7141 { | 7136 { |
7142 int n = 0; | 7137 int n = 0; |
7143 int dummy, nbytes, width; | 7138 int dummy, nbytes; |
7144 | 7139 |
7145 /* Copy at most PRECISION chars from STR. */ | 7140 /* Copy at most PRECISION chars from STR. */ |
7146 nbytes = strlen (str); | 7141 nbytes = strlen (str); |
7147 n+= c_string_width (str, nbytes, precision, &dummy, &nbytes); | 7142 n+= c_string_width (str, nbytes, precision, &dummy, &nbytes); |
7148 while (nbytes--) | 7143 while (nbytes--) |