Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78478c60bfcd
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
2490 Each buffer has its own value of this variable. 2490 Each buffer has its own value of this variable.
2491 */ ); 2491 */ );
2492 2492
2493 DEFVAR_BUFFER_LOCAL ("buffer-file-type", buffer_file_type /* 2493 DEFVAR_BUFFER_LOCAL ("buffer-file-type", buffer_file_type /*
2494 "Non-nil if the visited file is a binary file. 2494 "Non-nil if the visited file is a binary file.
2495 This variable is meaningful on MS-DOG and Windows NT. 2495 This variable is meaningful on MS-DOS and Windows NT.
2496 On those systems, it is automatically local in every buffer. 2496 On those systems, it is automatically local in every buffer.
2497 On other systems, this variable is normally always nil. 2497 On other systems, this variable is normally always nil.
2498 */ ); 2498 */ );
2499 2499
2500 #ifdef MULE 2500 #ifdef MULE
2829 && (int) strlen (pwd) < MAXPATHLEN) 2829 && (int) strlen (pwd) < MAXPATHLEN)
2830 strcpy (buf, pwd); 2830 strcpy (buf, pwd);
2831 else if (getcwd (buf, MAXPATHLEN) == NULL) 2831 else if (getcwd (buf, MAXPATHLEN) == NULL)
2832 fatal ("`getcwd' failed: %s\n", strerror (errno)); 2832 fatal ("`getcwd' failed: %s\n", strerror (errno));
2833 2833
2834 #ifndef VMS
2835 /* Maybe this should really use some standard subroutine 2834 /* Maybe this should really use some standard subroutine
2836 whose definition is filename syntax dependent. */ 2835 whose definition is filename syntax dependent. */
2837 rc = strlen (buf); 2836 rc = strlen (buf);
2838 if (!(IS_DIRECTORY_SEP (buf[rc - 1]))) 2837 if (!(IS_DIRECTORY_SEP (buf[rc - 1])))
2839 { 2838 {
2840 buf[rc] = DIRECTORY_SEP; 2839 buf[rc] = DIRECTORY_SEP;
2841 buf[rc + 1] = '\0'; 2840 buf[rc + 1] = '\0';
2842 } 2841 }
2843 #endif /* not VMS */ 2842 /* XEmacs change: store buffer's default directory
2843 using prefered (i.e. as defined at compile-time)
2844 directory separator. --marcpa */
2845 #ifdef DOS_NT
2846 #define CORRECT_DIR_SEPS(s) \
2847 do { if ('/' == DIRECTORY_SEP) dostounix_filename (s); \
2848 else unixtodos_filename (s); \
2849 } while (0)
2850
2851 CORRECT_DIR_SEPS(buf);
2852 #endif
2844 current_buffer->directory = build_string (buf); 2853 current_buffer->directory = build_string (buf);
2845 2854
2846 #if 0 /* FSFmacs */ 2855 #if 0 /* FSFmacs */
2847 /* #### is this correct? */ 2856 /* #### is this correct? */
2848 temp = get_minibuffer (0); 2857 temp = get_minibuffer (0);