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

Diff of /emacs/src/fileio.c

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

revision 1.455 by raeburn, Tue Jul 16 15:49:16 2002 UTC revision 1.456 by raeburn, Tue Jul 16 19:48:17 2002 UTC
# Line 250  static int e_write P_ ((int, Lisp_Object Line 250  static int e_write P_ ((int, Lisp_Object
250    
251  void  void
252  report_file_error (string, data)  report_file_error (string, data)
253       char *string;       const char *string;
254       Lisp_Object data;       Lisp_Object data;
255  {  {
256    Lisp_Object errstring;    Lisp_Object errstring;
# Line 393  on VMS, perhaps instead a string ending Line 393  on VMS, perhaps instead a string ending
393       (filename)       (filename)
394       Lisp_Object filename;       Lisp_Object filename;
395  {  {
396    register unsigned char *beg;    register const unsigned char *beg;
397    register unsigned char *p;    register const unsigned char *p;
398    Lisp_Object handler;    Lisp_Object handler;
399    
400    CHECK_STRING (filename);    CHECK_STRING (filename);
# Line 469  or the entire name if it contains no sla Line 469  or the entire name if it contains no sla
469       (filename)       (filename)
470       Lisp_Object filename;       Lisp_Object filename;
471  {  {
472    register unsigned char *beg, *p, *end;    register const unsigned char *beg, *p, *end;
473    Lisp_Object handler;    Lisp_Object handler;
474    
475    CHECK_STRING (filename);    CHECK_STRING (filename);
# Line 2540  DEFUN ("make-directory-internal", Fmake_ Line 2540  DEFUN ("make-directory-internal", Fmake_
2540       (directory)       (directory)
2541       Lisp_Object directory;       Lisp_Object directory;
2542  {  {
2543    unsigned char *dir;    const unsigned char *dir;
2544    Lisp_Object handler;    Lisp_Object handler;
2545    Lisp_Object encoded_dir;    Lisp_Object encoded_dir;
2546    
# Line 2570  DEFUN ("delete-directory", Fdelete_direc Line 2570  DEFUN ("delete-directory", Fdelete_direc
2570       (directory)       (directory)
2571       Lisp_Object directory;       Lisp_Object directory;
2572  {  {
2573    unsigned char *dir;    const unsigned char *dir;
2574    Lisp_Object handler;    Lisp_Object handler;
2575    Lisp_Object encoded_dir;    Lisp_Object encoded_dir;
2576    
# Line 2903  On Unix, this is a name starting with a Line 2903  On Unix, this is a name starting with a
2903       (filename)       (filename)
2904       Lisp_Object filename;       Lisp_Object filename;
2905  {  {
2906    unsigned char *ptr;    const unsigned char *ptr;
2907    
2908    CHECK_STRING (filename);    CHECK_STRING (filename);
2909    ptr = SDATA (filename);    ptr = SDATA (filename);
# Line 4750  This does code conversion according to t Line 4750  This does code conversion according to t
4750    register int desc;    register int desc;
4751    int failure;    int failure;
4752    int save_errno = 0;    int save_errno = 0;
4753    unsigned char *fn;    const unsigned char *fn;
4754    struct stat st;    struct stat st;
4755    int tem;    int tem;
4756    int count = SPECPDL_INDEX ();    int count = SPECPDL_INDEX ();
# Line 5813  static Lisp_Object Line 5813  static Lisp_Object
5813  double_dollars (val)  double_dollars (val)
5814       Lisp_Object val;       Lisp_Object val;
5815  {  {
5816    register unsigned char *old, *new;    register const unsigned char *old;
5817      register unsigned char *new;
5818    register int n;    register int n;
5819    int osize, count;    int osize, count;
5820    

Legend:
Removed from v.1.455  
changed lines
  Added in v.1.456

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