[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs etc/NEWS lisp/ChangeLog lisp/dired.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs etc/NEWS lisp/ChangeLog lisp/dired.el |
Date: |
Fri, 04 Dec 2009 21:45:35 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juri Linkov <jurta> 09/12/04 21:45:34
Modified files:
etc : NEWS
lisp : ChangeLog dired.el
Log message:
(dired-auto-revert-buffer): New defcustom.
(dired-internal-noselect): Use it.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/etc/NEWS?cvsroot=emacs&r1=1.2136&r2=1.2137
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16820&r2=1.16821
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired.el?cvsroot=emacs&r1=1.446&r2=1.447
Patches:
Index: etc/NEWS
===================================================================
RCS file: /sources/emacs/emacs/etc/NEWS,v
retrieving revision 1.2136
retrieving revision 1.2137
diff -u -b -r1.2136 -r1.2137
--- etc/NEWS 4 Dec 2009 21:43:07 -0000 1.2136
+++ etc/NEWS 4 Dec 2009 21:45:29 -0000 1.2137
@@ -201,6 +201,11 @@
exempt buffers that do correspond to files, customize the value of
`desktop-files-not-to-save' instead.
+** Dired
+
+*** The new variable `dired-auto-revert-buffer' allows to revert
+dired buffers automatically on revisiting.
+
** DocView
*** When `doc-view-continuous' is non-nil, scrolling a line
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16820
retrieving revision 1.16821
diff -u -b -r1.16820 -r1.16821
--- lisp/ChangeLog 4 Dec 2009 21:43:08 -0000 1.16820
+++ lisp/ChangeLog 4 Dec 2009 21:45:31 -0000 1.16821
@@ -1,5 +1,10 @@
2009-12-04 Juri Linkov <address@hidden>
+ * dired.el (dired-auto-revert-buffer): New defcustom.
+ (dired-internal-noselect): Use it.
+
+2009-12-04 Juri Linkov <address@hidden>
+
Change roles of modes and functions in image-mode.el (Bug#5062).
* image-mode.el: Replace `image-mode-maybe' with `image-mode'
Index: lisp/dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired.el,v
retrieving revision 1.446
retrieving revision 1.447
diff -u -b -r1.446 -r1.447
--- lisp/dired.el 4 Dec 2009 05:00:44 -0000 1.446
+++ lisp/dired.el 4 Dec 2009 21:45:34 -0000 1.447
@@ -752,6 +752,24 @@
buffer-read-only
(dired-directory-changed-p dirname))))
+;;;###autoload
+(defcustom dired-auto-revert-buffer nil
+ "Automatically revert dired buffer on revisiting.
+If t, revisiting an existing dired buffer automatically reverts it.
+If its value is a function, call this function with the directory
+name as single argument and revert the buffer if it returns non-nil.
+Otherwise, a message offering to revert the changed dired buffer
+is displayed.
+Note that this is not the same as `auto-revert-mode' that
+periodically reverts at specified time intervals."
+ :type '(choice
+ (const :tag "Don't revert" nil)
+ (const :tag "Always revert visited dired buffer" t)
+ (const :tag "Revert changed dired buffer" dired-directory-changed-p)
+ (function :tag "Predicate function"))
+ :group 'dired
+ :version "23.2")
+
(defun dired-internal-noselect (dir-or-list &optional switches mode)
;; If there is an existing dired buffer for DIRNAME, just leave
;; buffer as it is (don't even call dired-revert).
@@ -779,6 +797,14 @@
(setq dired-directory dir-or-list)
;; this calls dired-revert
(dired-sort-other switches))
+ ;; Always revert regardless of whether it has changed or not.
+ ((eq dired-auto-revert-buffer t)
+ (revert-buffer))
+ ;; Revert when predicate function returns non-nil.
+ ((functionp dired-auto-revert-buffer)
+ (when (funcall dired-auto-revert-buffer dirname)
+ (revert-buffer)
+ (message "Changed directory automatically updated")))
;; If directory has changed on disk, offer to revert.
((when (dired-directory-changed-p dirname)
(message "%s"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs etc/NEWS lisp/ChangeLog lisp/dired.el,
Juri Linkov <=