Mercurial > hg > xemacs-beta
comparison lisp/prim/files.el @ 155:43dd3413c7c7 r20-3b4
Import from CVS: tag r20-3b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:39:39 +0200 |
| parents | 25f70ba0133c |
| children | 6b37e6ddd302 |
comparison
equal
deleted
inserted
replaced
| 154:94141801dd7e | 155:43dd3413c7c7 |
|---|---|
| 1 ;;; files.el --- file input and output commands for XEmacs. | 1 ;;; files.el --- file input and output commands for XEmacs. |
| 2 | 2 |
| 3 ;; Copyright (C) 1985-1987, 1992-1995 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985-1987, 1992-1995, 1997 Free Software Foundation, Inc. |
| 4 ;; Copyright (C) 1995 Sun Microsystems. | 4 ;; Copyright (C) 1995 Sun Microsystems. |
| 5 | 5 |
| 6 ;; This file is part of XEmacs. | 6 ;; This file is part of XEmacs. |
| 7 | 7 |
| 8 ;; XEmacs is free software; you can redistribute it and/or modify it | 8 ;; XEmacs is free software; you can redistribute it and/or modify it |
| 2417 hook functions. | 2417 hook functions. |
| 2418 | 2418 |
| 2419 If `revert-buffer-function' is used to override the normal revert | 2419 If `revert-buffer-function' is used to override the normal revert |
| 2420 mechanism, this hook is not used.") | 2420 mechanism, this hook is not used.") |
| 2421 | 2421 |
| 2422 (defvar revert-buffer-internal-hook nil | |
| 2423 "Don't use this.") | |
| 2424 | |
| 2422 (defun revert-buffer (&optional ignore-auto noconfirm preserve-modes) | 2425 (defun revert-buffer (&optional ignore-auto noconfirm preserve-modes) |
| 2423 "Replace the buffer text with the text of the visited file on disk. | 2426 "Replace the buffer text with the text of the visited file on disk. |
| 2424 This undoes all changes since the file was visited or saved. | 2427 This undoes all changes since the file was visited or saved. |
| 2425 With a prefix argument, offer to revert from latest auto-save file, if | 2428 With a prefix argument, offer to revert from latest auto-save file, if |
| 2426 that is more recent than the visited file. | 2429 that is more recent than the visited file. |
| 2588 files | 2591 files |
| 2589 (buffer (get-buffer-create " *recover*"))) | 2592 (buffer (get-buffer-create " *recover*"))) |
| 2590 ;; #### dired-do-flagged-delete in FSF. | 2593 ;; #### dired-do-flagged-delete in FSF. |
| 2591 ;; This version is for ange-ftp | 2594 ;; This version is for ange-ftp |
| 2592 ;;(dired-do-deletions t) | 2595 ;;(dired-do-deletions t) |
| 2593 ;T This version is for efs | 2596 ;; This version is for efs |
| 2594 (dired-expunge-deletions) | 2597 (dired-expunge-deletions) |
| 2595 (unwind-protect | 2598 (unwind-protect |
| 2596 (save-excursion | 2599 (save-excursion |
| 2597 ;; Read in the auto-save-list file. | 2600 ;; Read in the auto-save-list file. |
| 2598 (set-buffer buffer) | 2601 (set-buffer buffer) |