Mercurial > emacs

comparison lisp/autorevert.el @ 26673:f649f6c04a54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(auto-revert-buffers): Auto-revert mode was turned off when reverting buffers that contained mode specifiers. `revert-buffer' is now called with non-nil PRESERVE-MODES argument.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 01 Dec 1999 16:19:24 +0000
parents c6629f3f1679
children b32c5e16dbe9
comparison
equal deleted inserted replaced
26672:33a16c803784 26673:f649f6c04a54
1 ;;; autorevert --- revert buffers when files on disk change 1 ;;; autorevert --- revert buffers when files on disk change
2 2
3 ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc.
4 4
5 ;; Author: Anders Lindgren <andersl@csd.uu.se> 5 ;; Author: Anders Lindgren <andersl@andersl.com>
6 ;; Keywords: convenience 6 ;; Keywords: convenience
7 ;; Created: 1 Jun 1997 7 ;; Created: 1997-06-01
8 ;; Date: 3 Jul 1997 8 ;; Date: 1999-11-30
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
348 (or (and global-auto-revert-mode 348 (or (and global-auto-revert-mode
349 global-auto-revert-non-file-buffers) 349 global-auto-revert-non-file-buffers)
350 auto-revert-mode)))) 350 auto-revert-mode))))
351 (if auto-revert-verbose 351 (if auto-revert-verbose
352 (message "Reverting buffer `%s'." buf)) 352 (message "Reverting buffer `%s'." buf))
353 (revert-buffer t t))) 353 (revert-buffer t t t)))
354 ;; Remove dead buffer from `auto-revert-buffer-list'. 354 ;; Remove dead buffer from `auto-revert-buffer-list'.
355 (setq auto-revert-buffer-list 355 (setq auto-revert-buffer-list
356 (delq buf auto-revert-buffer-list)))) 356 (delq buf auto-revert-buffer-list))))
357 (setq bufs (cdr bufs))) 357 (setq bufs (cdr bufs)))
358 (setq auto-revert-remaining-buffers bufs) 358 (setq auto-revert-remaining-buffers bufs)