From b74dc575a730305e7ce3656953fad1e0d94879dd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 20 Aug 2008 22:48:55 +0000 Subject: [PATCH] Revert last change. --- lisp/ChangeLog | 7 ------- lisp/wdired.el | 10 ---------- 2 files changed, 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf443d4a912..530bbd94dbc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,3 @@ -2008-08-20 Chong Yidong - - * wdired.el (wdired-old-auto-revert-mode): New var. - (wdired-change-to-wdired-mode): Turn off auto-revert-mode. - (wdired-change-to-dired-mode): Turn auto-revert-mode on if it used - to be on. - 2008-08-20 Kevin Ryde * textmodes/nroff-mode.el (nroff-mode): Avoid auto-filling on diff --git a/lisp/wdired.el b/lisp/wdired.el index f2f863ef971..e2d6a4b85b8 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -207,7 +207,6 @@ program `dired-chmod-program', which must exist." (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 () @@ -243,10 +242,6 @@ See `wdired-mode'." (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) @@ -354,11 +349,6 @@ non-nil means return old filename." (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)) -- 2.39.5