Mercurial > hg > xemacs-beta

comparison lisp/efs/dired.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children 6608ceec7cf8
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
374 The symbols 'rmail and 'vm are the only two allowed values.") 374 The symbols 'rmail and 'vm are the only two allowed values.")
375 375
376 (defvar dired-verify-modtimes t 376 (defvar dired-verify-modtimes t
377 "*If non-nil dired will revert dired buffers for modified subdirectories. 377 "*If non-nil dired will revert dired buffers for modified subdirectories.
378 See also dired-no-confirm <V>.") 378 See also dired-no-confirm <V>.")
379
380 ;;;###autoload
381 (defvar dired-refresh-automatically t
382 "*If non-nil, refresh dired buffers automatically after file operations.")
379 383
380 ;;; File name regular expressions and extensions. 384 ;;; File name regular expressions and extensions.
381 385
382 (defvar dired-trivial-filenames "^\\.\\.?$\\|^#" 386 (defvar dired-trivial-filenames "^\\.\\.?$\\|^#"
383 "*Regexp of files to skip when finding first file of a directory listing. 387 "*Regexp of files to skip when finding first file of a directory listing.
6186 x))) 6190 x)))
6187 file-name-handler-alist)))) 6191 file-name-handler-alist))))
6188 6192
6189 (defun dired-check-file-name-handler-alist () 6193 (defun dired-check-file-name-handler-alist ()
6190 ;; Verify that dired is installed as the first item in the alist 6194 ;; Verify that dired is installed as the first item in the alist
6191 (or (eq (cdr (car file-name-handler-alist)) 'dired-handler-fn) 6195 (and dired-refresh-automatically
6192 (setq file-name-handler-alist 6196 (or (eq (cdr (car file-name-handler-alist)) 'dired-handler-fn)
6193 (cons 6197 (setq file-name-handler-alist
6194 '("." . dired-handler-fn) 6198 (cons
6195 (dired-remove-from-file-name-handler-alist))))) 6199 '("." . dired-handler-fn)
6200 (dired-remove-from-file-name-handler-alist))))))
6196 6201
6197 (defun dired-handler-fn (op &rest args) 6202 (defun dired-handler-fn (op &rest args)
6198 ;; Function to update dired buffers after I/O. 6203 ;; Function to update dired buffers after I/O.
6199 (prog1 6204 (prog1
6200 (let ((inhibit-file-name-handlers 6205 (let ((inhibit-file-name-handlers