projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U+767C): Separate UU+767C.
[chise/xemacs-chise.git-]
/
src
/
glyphs.c
diff --git
a/src/glyphs.c
b/src/glyphs.c
index
3788f4b
..
6f9d031
100644
(file)
--- a/
src/glyphs.c
+++ b/
src/glyphs.c
@@
-318,13
+318,13
@@
specifiers will not be affected.
signal_simple_error ("Invalid mapping form", mapping);
else
{
signal_simple_error ("Invalid mapping form", mapping);
else
{
- Lisp_Object exp = XCAR (mapping);
+ Lisp_Object mapexp = XCAR (mapping);
Lisp_Object typevec = XCAR (XCDR (mapping));
Lisp_Object pos = Qnil;
Lisp_Object newvec;
struct gcpro gcpro1;
Lisp_Object typevec = XCAR (XCDR (mapping));
Lisp_Object pos = Qnil;
Lisp_Object newvec;
struct gcpro gcpro1;
- CHECK_STRING (exp);
+ CHECK_STRING (mapexp);
CHECK_VECTOR (typevec);
if (!NILP (XCDR (XCDR (mapping))))
{
CHECK_VECTOR (typevec);
if (!NILP (XCDR (XCDR (mapping))))
{
@@
-338,7
+338,7
@@
specifiers will not be affected.
newvec = Fcopy_sequence (typevec);
if (INTP (pos))
newvec = Fcopy_sequence (typevec);
if (INTP (pos))
- XVECTOR_DATA (newvec)[XINT (pos)] = exp;
+ XVECTOR_DATA (newvec)[XINT (pos)] = mapexp;
GCPRO1 (newvec);
image_validate (newvec);
UNGCPRO;
GCPRO1 (newvec);
image_validate (newvec);
UNGCPRO;
@@
-374,7
+374,7
@@
process_image_string_instantiator (Lisp_Object data,
LIST_LOOP (tail, *get_image_conversion_list (console_type))
{
Lisp_Object mapping = XCAR (tail);
LIST_LOOP (tail, *get_image_conversion_list (console_type))
{
Lisp_Object mapping = XCAR (tail);
- Lisp_Object exp = XCAR (mapping);
+ Lisp_Object mapexp = XCAR (mapping);
Lisp_Object typevec = XCAR (XCDR (mapping));
/* if the result is of a type that can't be instantiated
Lisp_Object typevec = XCAR (XCDR (mapping));
/* if the result is of a type that can't be instantiated
@@
-385,7
+385,7
@@
process_image_string_instantiator (Lisp_Object data,
(INSTANTIATOR_TYPE (typevec), ERROR_ME),
possible_dest_types, ())))
continue;
(INSTANTIATOR_TYPE (typevec), ERROR_ME),
possible_dest_types, ())))
continue;
- if (fast_string_match (exp, 0, data, 0, -1, 0, ERROR_ME, 0) >= 0)
+ if (fast_string_match (mapexp, 0, data, 0, -1, 0, ERROR_ME, 0) >= 0)
{
if (!NILP (XCDR (XCDR (mapping))))
{
{
if (!NILP (XCDR (XCDR (mapping))))
{
@@
-711,7
+711,7
@@
get_image_instantiator_governing_domain (Lisp_Object instantiator,
else if (governing_domain == GOVERNING_DOMAIN_DEVICE)
domain = DOMAIN_DEVICE (domain);
else
else if (governing_domain == GOVERNING_DOMAIN_DEVICE)
domain = DOMAIN_DEVICE (domain);
else
- abort ();
+ ABORT ();
return domain;
}
return domain;
}
@@
-1032,7
+1032,7
@@
print_image_instance (Lisp_Object obj, Lisp_Object printcharfun,
break;
default:
break;
default:
- abort ();
+ ABORT ();
}
MAYBE_DEVMETH (DOMAIN_XDEVICE (ii->domain), print_image_instance,
}
MAYBE_DEVMETH (DOMAIN_XDEVICE (ii->domain), print_image_instance,
@@
-1155,7
+1155,7
@@
image_instance_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
break;
default:
break;
default:
- abort ();
+ ABORT ();
}
return DEVMETH_OR_GIVEN (DOMAIN_XDEVICE (i1->domain),
}
return DEVMETH_OR_GIVEN (DOMAIN_XDEVICE (i1->domain),
@@
-1234,7
+1234,7
@@
image_instance_hash (Lisp_Object obj, int depth)
break;
default:
break;
default:
- abort ();
+ ABORT ();
}
return HASH2 (hash, DEVMETH_OR_GIVEN
}
return HASH2 (hash, DEVMETH_OR_GIVEN
@@
-1322,7
+1322,7
@@
encode_image_instance_type (enum image_instance_type type)
case IMAGE_SUBWINDOW: return Qsubwindow;
case IMAGE_WIDGET: return Qwidget;
default:
case IMAGE_SUBWINDOW: return Qsubwindow;
case IMAGE_WIDGET: return Qwidget;
default:
- abort ();
+ ABORT ();
}
return Qnil; /* not reached */
}
return Qnil; /* not reached */
@@
-1460,7
+1460,7
@@
make_image_instance_1 (Lisp_Object data, Lisp_Object domain,
signal_simple_error ("Image instances not allowed here", data);
image_validate (data);
domain = decode_domain (domain);
signal_simple_error ("Image instances not allowed here", data);
image_validate (data);
domain = decode_domain (domain);
- /* instantiate_image_instantiator() will abort if given an
+ /* instantiate_image_instantiator() will ABORT if given an
image instance ... */
dest_mask = decode_image_instance_type_list (dest_types);
data = normalize_image_instantiator (data,
image instance ... */
dest_mask = decode_image_instance_type_list (dest_types);
data = normalize_image_instantiator (data,
@@
-1989,9
+1989,6
@@
image_instance_layout (Lisp_Object image_instance,
if (yoffset != IMAGE_UNCHANGED_GEOMETRY)
XIMAGE_INSTANCE_YOFFSET (image_instance) = yoffset;
if (yoffset != IMAGE_UNCHANGED_GEOMETRY)
XIMAGE_INSTANCE_YOFFSET (image_instance) = yoffset;
- assert (XIMAGE_INSTANCE_YOFFSET (image_instance) >= 0
- && XIMAGE_INSTANCE_XOFFSET (image_instance) >= 0);
-
/* If geometry is unspecified then get some reasonable values for it. */
if (width == IMAGE_UNSPECIFIED_GEOMETRY
||
/* If geometry is unspecified then get some reasonable values for it. */
if (width == IMAGE_UNSPECIFIED_GEOMETRY
||
@@
-2215,7
+2212,7
@@
inherit_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
int dest_mask, Lisp_Object domain)
{
/* handled specially in image_instantiate */
int dest_mask, Lisp_Object domain)
{
/* handled specially in image_instantiate */
- abort ();
+ ABORT ();
}
\f
}
\f
@@
-2265,7
+2262,7
@@
query_string_geometry (Lisp_Object string, Lisp_Object face,
int* width, int* height, int* descent, Lisp_Object domain)
{
struct font_metric_info fm;
int* width, int* height, int* descent, Lisp_Object domain)
{
struct font_metric_info fm;
- unsigned char charsets[NUM_LEADING_BYTES];
+ Charset_ID charsets[NUM_LEADING_BYTES];
struct face_cachel frame_cachel;
struct face_cachel *cachel;
Lisp_Object frame = DOMAIN_FRAME (domain);
struct face_cachel frame_cachel;
struct face_cachel *cachel;
Lisp_Object frame = DOMAIN_FRAME (domain);
@@
-2319,7
+2316,7
@@
query_string_geometry (Lisp_Object string, Lisp_Object face,
Lisp_Object
query_string_font (Lisp_Object string, Lisp_Object face, Lisp_Object domain)
{
Lisp_Object
query_string_font (Lisp_Object string, Lisp_Object face, Lisp_Object domain)
{
- unsigned char charsets[NUM_LEADING_BYTES];
+ Charset_ID charsets[NUM_LEADING_BYTES];
struct face_cachel frame_cachel;
struct face_cachel *cachel;
int i;
struct face_cachel frame_cachel;
struct face_cachel *cachel;
int i;
@@
-3238,7
+3235,7
@@
image_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
Qunbound);
}
else
Qunbound);
}
else
- abort (); /* We're not allowed anything else currently. */
+ ABORT (); /* We're not allowed anything else currently. */
/* If we don't have an instance at this point then create
one. */
/* If we don't have an instance at this point then create
one. */
@@
-3316,7
+3313,7
@@
image_instantiate (Lisp_Object specifier, Lisp_Object matchspec,
RETURN_UNGCPRO (instance);
}
RETURN_UNGCPRO (instance);
}
- abort ();
+ ABORT ();
return Qnil; /* not reached */
}
return Qnil; /* not reached */
}
@@
-3713,7
+3710,7
@@
allocate_glyph (enum glyph_type type,
| IMAGE_COLOR_PIXMAP_MASK;
break;
default:
| IMAGE_COLOR_PIXMAP_MASK;
break;
default:
- abort ();
+ ABORT ();
}
/* I think Fmake_specifier can GC. I think set_specifier_fallback can GC. */
}
/* I think Fmake_specifier can GC. I think set_specifier_fallback can GC. */
@@
-3838,7
+3835,7
@@
The return value will be one of 'buffer, 'pointer, or 'icon.
CHECK_GLYPH (glyph);
switch (XGLYPH_TYPE (glyph))
{
CHECK_GLYPH (glyph);
switch (XGLYPH_TYPE (glyph))
{
- default: abort ();
+ default: ABORT ();
case GLYPH_BUFFER: return Qbuffer;
case GLYPH_POINTER: return Qpointer;
case GLYPH_ICON: return Qicon;
case GLYPH_BUFFER: return Qbuffer;
case GLYPH_POINTER: return Qpointer;
case GLYPH_ICON: return Qicon;
@@
-4526,7
+4523,7
@@
redisplay_subwindow (Lisp_Object subwindow)
/* The update method is allowed to call eval. Since it is quite
common for this function to get called from somewhere in
redisplay we need to make sure that quits are ignored. Otherwise
/* The update method is allowed to call eval. Since it is quite
common for this function to get called from somewhere in
redisplay we need to make sure that quits are ignored. Otherwise
- Fsignal will abort. */
+ Fsignal will ABORT. */
specbind (Qinhibit_quit, Qt);
ERROR_CHECK_IMAGE_INSTANCE (subwindow);
specbind (Qinhibit_quit, Qt);
ERROR_CHECK_IMAGE_INSTANCE (subwindow);
@@
-4889,7
+4886,7
@@
display_table_entry (Emchar ch, Lisp_Object face_table,
continue;
}
else
continue;
}
else
- abort ();
+ ABORT ();
}
}
}
}