[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/wdired.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wdired.el,v |
Date: |
Wed, 20 Aug 2008 22:41:46 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/08/20 22:41:45
Index: wdired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/wdired.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- wdired.el 15 Jun 2008 09:43:38 -0000 1.38
+++ wdired.el 20 Aug 2008 22:41:45 -0000 1.39
@@ -207,6 +207,7 @@
(defvar wdired-col-perm) ;; Column where the permission bits start
(defvar wdired-old-content)
(defvar wdired-old-point)
+(defvar wdired-old-auto-revert-mode nil)
(defun wdired-mode ()
@@ -242,6 +243,10 @@
(buffer-substring (point-min) (point-max)))
(set (make-local-variable 'wdired-old-point) (point))
(set (make-local-variable 'query-replace-skip-read-only) t)
+ (when (and (boundp 'auto-revert-mode)
+ auto-revert-mode)
+ (set (make-local-variable 'wdired-old-auto-revert-mode) t)
+ (auto-revert-mode 0))
(use-local-map wdired-mode-map)
(force-mode-line-update)
(setq buffer-read-only nil)
@@ -349,6 +354,11 @@
(setq mode-name "Dired")
(dired-advertise)
(remove-hook 'kill-buffer-hook 'wdired-check-kill-buffer t)
+ (when wdired-old-auto-revert-mode
+ (kill-local-variable 'wdired-old-auto-revert-mode)
+ (and (boundp 'auto-revert-mode)
+ (null auto-revert-mode)
+ (auto-revert-mode 1)))
(set (make-local-variable 'revert-buffer-function) 'dired-revert))
- [Emacs-diffs] Changes to emacs/lisp/wdired.el,v,
Chong Yidong <=