Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents 8d2a9b52c682
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
936 that would need adjusting, and people would add new pointers to 936 that would need adjusting, and people would add new pointers to
937 the code and forget to adjust them, resulting in intermittent bugs. 937 the code and forget to adjust them, resulting in intermittent bugs.
938 Putting this call here avoids all that crud. 938 Putting this call here avoids all that crud.
939 939
940 The EQ test avoids infinite recursion. */ 940 The EQ test avoids infinite recursion. */
941 if (! NILP (defalt) && !EQ (defalt, name) 941 if (! NILP(defalt) && !EQ (defalt, name)
942 /* This saves time in a common case. */ 942 /* This saves time in a common case. */
943 && ! (XSTRING_LENGTH (defalt) >= 3 943 && ! (XSTRING_LENGTH (defalt) >= 3
944 && IS_DIRECTORY_SEP (XSTRING_BYTE (defalt, 0)) 944 && (IS_DIRECTORY_SEP (XSTRING_BYTE (defalt, 0))
945 && IS_DEVICE_SEP (XSTRING_BYTE (defalt, 1)))) 945 || IS_DEVICE_SEP (XSTRING_BYTE (defalt, 1)))))
946 { 946 {
947 struct gcpro gcpro1; 947 struct gcpro gcpro1;
948 948
949 GCPRO1 (defalt); /* may be current_buffer->directory */ 949 GCPRO1 (defalt); /* may be current_buffer->directory */
950 defalt = Fexpand_file_name (defalt, Qnil); 950 defalt = Fexpand_file_name (defalt, Qnil);