Mercurial > hg > xemacs-beta

comparison src/filelock.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 064ab7fed2e0
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
124 char *user_name; 124 char *user_name;
125 char *host_name; 125 char *host_name;
126 char *lock_info_str; 126 char *lock_info_str;
127 127
128 if (STRINGP (Fuser_login_name (Qnil))) 128 if (STRINGP (Fuser_login_name (Qnil)))
129 user_name = (char *)XSTRING_DATA((Fuser_login_name (Qnil))); 129 user_name = (char *) XSTRING_DATA (Fuser_login_name (Qnil));
130 else 130 else
131 user_name = ""; 131 user_name = "";
132 if (STRINGP (Fsystem_name ())) 132 if (STRINGP (Fsystem_name ()))
133 host_name = (char *)XSTRING_DATA((Fsystem_name ())); 133 host_name = (char *) XSTRING_DATA (Fsystem_name ());
134 else 134 else
135 host_name = ""; 135 host_name = "";
136 lock_info_str = (char *)alloca (strlen (user_name) + strlen (host_name) 136 lock_info_str = (char *)alloca (strlen (user_name) + strlen (host_name)
137 + LOCK_PID_MAX + 5); 137 + LOCK_PID_MAX + 5);
138 138
369 unlock_all_files () 369 unlock_all_files ()
370 { 370 {
371 register Lisp_Object tail; 371 register Lisp_Object tail;
372 register struct buffer *b; 372 register struct buffer *b;
373 373
374 for (tail = Vbuffer_alist; GC_CONSP (tail); tail = XCDR (tail)) 374 for (tail = Vbuffer_alist; CONSP (tail); tail = XCDR (tail))
375 { 375 {
376 b = XBUFFER (XCDR (XCAR (tail))); 376 b = XBUFFER (XCDR (XCAR (tail)));
377 if (STRINGP (b->file_truename) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b)) 377 if (STRINGP (b->file_truename) && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b))
378 unlock_file (b->file_truename); 378 unlock_file (b->file_truename);
379 } 379 }