Mercurial > hg > xemacs-beta

comparison lisp/efs/dired.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
3 ;; Copyright (C) 1985, 1986, 1991 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1991 Free Software Foundation, Inc.
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5 ;; 5 ;;
6 ;; File: dired.el 6 ;; File: dired.el
7 ;; RCS: 7 ;; RCS:
8 ;; Dired Version: $Revision: 1.4 $ 8 ;; Dired Version: #Revision: 7.9 $
9 ;; Description: The DIRectory EDitor is for manipulating, and running 9 ;; Description: The DIRectory EDitor is for manipulating, and running
10 ;; commands on files in a directory. 10 ;; commands on files in a directory.
11 ;; Authors: FSF, 11 ;; Authors: FSF,
12 ;; Sebastian Kremer <sk@thp.uni-koeln.de>, 12 ;; Sebastian Kremer <sk@thp.uni-koeln.de>,
13 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 13 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
34 ;; 7-1993: Added special features for efs interaction and upgraded to Emacs 19. 34 ;; 7-1993: Added special features for efs interaction and upgraded to Emacs 19.
35 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 35 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
36 36
37 ;;; Dired Version 37 ;;; Dired Version
38 38
39 (defconst dired-version (substring "$Revision: 1.4 $" 11 -2) 39 (defconst dired-version (substring "#Revision: 7.9 $" 11 -2)
40 "The revision number of Tree Dired (as a string). 40 "The revision number of Tree Dired (as a string).
41 41
42 Don't forget to mention this when reporting bugs to: 42 Don't forget to mention this when reporting bugs to:
43 43
44 efs-bugs@cuckoo.hpl.hp.com") 44 efs-bugs@cuckoo.hpl.hp.com")
5717 (delq nil 5717 (delq nil
5718 (mapcar 5718 (mapcar
5719 (function 5719 (function
5720 (lambda (x) 5720 (lambda (x)
5721 (and (not (eq (current-buffer) (cdr x))) x))) 5721 (and (not (eq (current-buffer) (cdr x))) x)))
5722 dired-buffers)))) 5722 dired-buffers)))
5723 ;; If there are no more dired buffers, we are no longer needed in the
5724 ;; file-name-handler-alist.
5725 (or dired-buffers (dired-remove-from-file-name-handler-alist)))
5723 5726
5724 (defun dired-fun-in-all-buffers (directory fun &rest args) 5727 (defun dired-fun-in-all-buffers (directory fun &rest args)
5725 ;; In all buffers dired'ing DIRECTORY, run FUN with ARGS. 5728 ;; In all buffers dired'ing DIRECTORY, run FUN with ARGS.
5726 ;; Return list of buffers where FUN succeeded (i.e., returned non-nil). 5729 ;; Return list of buffers where FUN succeeded (i.e., returned non-nil).
5727 (let* ((buf-list (dired-buffers-for-dir directory)) 5730 (let* ((buf-list (dired-buffers-for-dir directory))