Mercurial > emacs

comparison src/fileio.c @ 83550:17e0dd217877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org. Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-536 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-537 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-538 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-539 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-540 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-541 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-542 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-543 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-544 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-545 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-546 Update from erc--emacs--22 * emacs@sv.gnu.org/emacs--devo--0--patch-547 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-548 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-549 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-550 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-551 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-552 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-553 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-554 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-555 erc-iswitchb: Temporarily enable iswitchb mode * emacs@sv.gnu.org/emacs--devo--0--patch-556 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-557 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-558 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-559 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-560 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-561 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-562 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-563 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-564 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-565 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-566 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-567 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-568 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-569 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-570 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-571 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-572 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-573 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-574 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-575 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-576 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-577 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-578 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-579 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-580 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-581 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-582 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-583 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-584 Fix admin/quick-install-emacs to work with recent versions of autoconf * emacs@sv.gnu.org/gnus--rel--5.10--patch-171 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-172 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-173 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-174 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-175 Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. * emacs@sv.gnu.org/gnus--rel--5.10--patch-176 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-177 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-178 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-179 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-180 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-181 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-182 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-183 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-184 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-185 Merge from emacs--devo--0 git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-590
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 01 Jan 2007 17:38:32 +0000
parents c71725faff1a 9354f251fbae
children b8d9a391daf3
comparison
equal deleted inserted replaced
83549:8d80de0a1ac6 83550:17e0dd217877
3541 } 3541 }
3542 3542
3543 return Qt; 3543 return Qt;
3544 } 3544 }
3545 3545
3546 #ifdef __NetBSD__ 3546 #ifdef HAVE_SYNC
3547 #define unix 42
3548 #endif
3549
3550 #ifdef unix
3551 DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", 3547 DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "",
3552 doc: /* Tell Unix to finish all pending disk updates. */) 3548 doc: /* Tell Unix to finish all pending disk updates. */)
3553 () 3549 ()
3554 { 3550 {
3555 sync (); 3551 sync ();
3556 return Qnil; 3552 return Qnil;
3557 } 3553 }
3558 3554
3559 #endif /* unix */ 3555 #endif /* HAVE_SYNC */
3560 3556
3561 DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, 3557 DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0,
3562 doc: /* Return t if file FILE1 is newer than file FILE2. 3558 doc: /* Return t if file FILE1 is newer than file FILE2.
3563 If FILE1 does not exist, the answer is nil; 3559 If FILE1 does not exist, the answer is nil;
3564 otherwise, if FILE2 does not exist, the answer is t. */) 3560 otherwise, if FILE2 does not exist, the answer is t. */)
6163 } 6159 }
6164 6160
6165 if (NILP (action)) 6161 if (NILP (action))
6166 { 6162 {
6167 specdir = Ffile_name_directory (string); 6163 specdir = Ffile_name_directory (string);
6168 val = Ffile_name_completion (name, realdir); 6164 val = Ffile_name_completion (name, realdir, Vread_file_name_predicate);
6169 UNGCPRO; 6165 UNGCPRO;
6170 if (!STRINGP (val)) 6166 if (!STRINGP (val))
6171 { 6167 {
6172 if (changed) 6168 if (changed)
6173 return double_dollars (string); 6169 return double_dollars (string);
6793 6789
6794 defsubr (&Sread_file_name_internal); 6790 defsubr (&Sread_file_name_internal);
6795 defsubr (&Sread_file_name); 6791 defsubr (&Sread_file_name);
6796 defsubr (&Snext_read_file_uses_dialog_p); 6792 defsubr (&Snext_read_file_uses_dialog_p);
6797 6793
6798 #ifdef unix 6794 #ifdef HAVE_SYNC
6799 defsubr (&Sunix_sync); 6795 defsubr (&Sunix_sync);
6800 #endif 6796 #endif
6801 } 6797 }
6802 6798
6803 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c 6799 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c