mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

[MAC_OS] (find_image_fsspec): Use coercion of Apple event data for

Browse source 
translation from/to file names.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-12-24 02:50:00 +00:00
parent 70128967da
commit 2d22e7edf2
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/image.c
View file

@ -2259,23 +2259,25 @@ find_image_fsspec (specified_file, file, fss)
Lisp_Object specified_file, *file;
FSSpec *fss;
{
#if MAC_OSX
FSRef fsr;
#endif
OSErr err;
AEDesc desc;
*file = x_find_image_file (specified_file);
if (!STRINGP (*file))
return fnfErr; /* file or directory not found;
incomplete pathname */
/* Try to open the image file. */
#if MAC_OSX
err = FSPathMakeRef (SDATA (*file), &fsr, NULL);
err = AECoercePtr (TYPE_FILE_NAME, SDATA (*file),
SBYTES (*file), typeFSS, &desc);
if (err == noErr)
err = FSGetCatalogInfo (&fsr, kFSCatInfoNone, NULL, NULL, fss, NULL);
{
#if TARGET_API_MAC_CARBON
err = AEGetDescData (&desc, fss, sizeof (FSSpec));
#else
err = posix_pathname_to_fsspec (SDATA (*file), fss);
*fss = *(FSSpec *)(*(desc.dataHandle));
#endif
AEDisposeDesc (&desc);
}
return err;
}