/[emacs]/emacs/src/mac.c
ViewVC logotype

Diff of /emacs/src/mac.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by akochoi, Mon Jun 17 06:06:03 2002 UTC revision 1.6 by raeburn, Mon Jul 15 00:00:36 2002 UTC
# Line 2048  run_mac_command (argv, workdir, infn, ou Line 2048  run_mac_command (argv, workdir, infn, ou
2048    
2049            if (NILP (path))            if (NILP (path))
2050              return -1;              return -1;
2051            if (posix_to_mac_pathname (XSTRING (path)->data, tempmacpathname,            if (posix_to_mac_pathname (SDATA (path), tempmacpathname,
2052                                      MAXPATHLEN+1) == 0)                                      MAXPATHLEN+1) == 0)
2053              return -1;              return -1;
2054          }          }
# Line 2529  component.  */) Line 2529  component.  */)
2529    
2530    CHECK_STRING (script);    CHECK_STRING (script);
2531        
2532    status = do_applescript (XSTRING (script)->data, &result);    status = do_applescript (SDATA (script), &result);
2533    if (status)    if (status)
2534      {      {
2535        if (!result)        if (!result)
# Line 2566  DEFUN ("mac-file-name-to-posix", Fmac_fi Line 2566  DEFUN ("mac-file-name-to-posix", Fmac_fi
2566    
2567    CHECK_STRING (mac_filename);    CHECK_STRING (mac_filename);
2568        
2569    if (mac_to_posix_pathname (XSTRING (mac_filename)->data, posix_filename,    if (mac_to_posix_pathname (SDATA (mac_filename), posix_filename,
2570                             MAXPATHLEN))                             MAXPATHLEN))
2571      return build_string (posix_filename);      return build_string (posix_filename);
2572    else    else
# Line 2584  DEFUN ("posix-file-name-to-mac", Fposix_ Line 2584  DEFUN ("posix-file-name-to-mac", Fposix_
2584    
2585    CHECK_STRING (posix_filename);    CHECK_STRING (posix_filename);
2586        
2587    if (posix_to_mac_pathname (XSTRING (posix_filename)->data, mac_filename,    if (posix_to_mac_pathname (SDATA (posix_filename), mac_filename,
2588                             MAXPATHLEN))                             MAXPATHLEN))
2589      return build_string (mac_filename);      return build_string (mac_filename);
2590    else    else
# Line 2670  DEFUN ("mac-cut-function", Fmac_cut_func Line 2670  DEFUN ("mac-cut-function", Fmac_cut_func
2670    
2671    CHECK_STRING (value);    CHECK_STRING (value);
2672        
2673    len = XSTRING (value)->size;    len = SCHARS (value);
2674    buf = (char *) alloca (len+1);    buf = (char *) alloca (len+1);
2675    bcopy (XSTRING (value)->data, buf, len);    bcopy (SDATA (value), buf, len);
2676    buf[len] = '\0';    buf[len] = '\0';
2677        
2678    /* convert to Mac-style eol's before sending to clipboard */    /* convert to Mac-style eol's before sending to clipboard */

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26