comparison lisp/files.el @ 838:bf645ed7cfe3

[xemacs-hg @ 2002-05-14 09:28:06 by ben] revert-buffer, others files.el: Andy's patch from 21.4. Fix evil nasty problems with revert-buffer. menubar-items.el: Add Append to Register to Rectangles/Register menu. config.h.in, font-lock.c: Reenable font-lock code since it's used by mouse.el. The flag for this exists in config.h.in but not currently controllable through configure.
author ben
date Tue, 14 May 2002 09:28:14 +0000
parents 6728e641994e
children 047d37eb70d7
comparison
equal deleted inserted replaced
837:0490271de7d8 838:bf645ed7cfe3
2859 ;; has changed. 2859 ;; has changed.
2860 (cond ((or auto-save-p 2860 (cond ((or auto-save-p
2861 (buffer-modified-p) 2861 (buffer-modified-p)
2862 (and (setq newbuf (revert-buffer-internal 2862 (and (setq newbuf (revert-buffer-internal
2863 file-name)) 2863 file-name))
2864 (and delay-prompt 2864 (or noconfirm
2865 (yes-or-no-p 2865 (and delay-prompt
2866 (format "Revert buffer from file %s? " 2866 (yes-or-no-p
2867 file-name))))) 2867 (format "Revert buffer from file %s? "
2868 file-name))))))
2868 ;; If file was backed up but has changed since, 2869 ;; If file was backed up but has changed since,
2869 ;; we should make another backup. 2870 ;; we should make another backup.
2870 (and (not auto-save-p) 2871 (and (not auto-save-p)
2871 (not (verify-visited-file-modtime (current-buffer))) 2872 (not (verify-visited-file-modtime (current-buffer)))
2872 (setq buffer-backed-up nil)) 2873 (setq buffer-backed-up nil))