(Qfont_spec, Qfont_entity, Qfont_object): Extern them.

[bpt/emacs.git] / src / fontset.c

diff --git a/src/fontset.c b/src/fontset.c
index bd4553b..48a32ea 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -2025,7 +2025,7 @@ DEFUN ("internal-char-font", Finternal_char_font, Sinternal_char_font, 1, 2, 0,
      (position, ch)
      Lisp_Object position, ch;
 {
-  int pos, pos_byte, dummy;
+  EMACS_INT pos, pos_byte, dummy;
   int face_id;
   int c;
   struct frame *f;
@@ -2245,7 +2245,7 @@ fontset.  The format is the same as abobe.  */)
                              {
                                struct font *font
                                  = XSAVE_VALUE (font_object)->pointer;
-                               char *name = font->font.full_name;;
+                               char *name = font->font.full_name;
                                int len = strlen (name);
                                Lisp_Object slot;