comparison src/nsfns.m @ 97584:06f7d5858c5a

* nsfns.m (ns-read-file-name): Add casts to avoid warning. (ns-convert-utf8-nfd-to-nfc): Warn if cannot execute correctly. * nsfont.m (nsfont_draw): Compare indexed colors to 0, not nil. * nsterm.h (EmacsView-unlockFocusNeedsFlush:): Add declaration. (EmacsApp-cursor_blink_handler): Remove declaration. * nsterm.m (ns_draw_glyph_string): Update first conditional body to match 01 Feb 2008 changes in xterm.c. (ns_read_socket): Add cast to avoid warning. (EmacsApp-application:openFiles:): Don't call replyToOpenOrPrint: on GNUstep.

97583:2b25a461fcb0

  if ([dirS characterAtIndex: 0] == '~')
    dirS = [dirS stringByExpandingTildeInPath];

  panel = NILP (isLoad) ?
    [EmacsSavePanel savePanel] : [EmacsOpenPanel openPanel];

  [panel setTitle: promptS];

  /* Puma (10.1) does not have */
  if ([panel respondsToSelector: @selector (setAllowsOtherFileTypes:)])

       Sns_convert_utf8_nfd_to_nfc, 1, 1, 0,
       doc: /* Return an NFC string that matches  the UTF-8 NFD string STR.  */)
    (str)
    Lisp_Object str;
{
  NSString *utfStr;

  CHECK_STRING (str);
  utfStr = [[NSString stringWithUTF8String: SDATA (str)]
             precomposedStringWithCanonicalMapping];
  return build_string ([utfStr UTF8String]);
}


#ifdef NS_IMPL_COCOA

97584:06f7d5858c5a

  if ([dirS characterAtIndex: 0] == '~')
    dirS = [dirS stringByExpandingTildeInPath];

  panel = NILP (isLoad) ?
    (id)[EmacsSavePanel savePanel] : (id)[EmacsOpenPanel openPanel];

  [panel setTitle: promptS];

  /* Puma (10.1) does not have */
  if ([panel respondsToSelector: @selector (setAllowsOtherFileTypes:)])

       Sns_convert_utf8_nfd_to_nfc, 1, 1, 0,
       doc: /* Return an NFC string that matches  the UTF-8 NFD string STR.  */)
    (str)
    Lisp_Object str;
{
/* TODO: If GNUstep ever implements precomposedStringWithCanonicalMapping,
         remove this. */
  NSString *utfStr;

  CHECK_STRING (str);
  utfStr = [NSString stringWithUTF8String: SDATA (str)];
  if (![utfStr respondsToSelector:
                 @selector (precomposedStringWithCanonicalMapping)])
    {
      message1
        ("Warning: ns-convert-utf8-nfd-to-nfc unsupported under GNUstep.\n");
      return Qnil;
    }
  else
    utfStr = [utfStr precomposedStringWithCanonicalMapping];
  return build_string ([utfStr UTF8String]);
}


#ifdef NS_IMPL_COCOA