Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-shell.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8b8b7f3559a2
children
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
664 (dir (and (not (equal current-prefix-arg '(16))) 664 (dir (and (not (equal current-prefix-arg '(16)))
665 (dired-current-directory)))) 665 (dired-current-directory))))
666 (list 666 (list
667 (dired-read-shell-command 667 (dired-read-shell-command
668 (concat (if dir 668 (concat (if dir
669 (format "! in %s" (dired-abbreviate-file-name dir)) 669 (format "! in %s " (dired-abbreviate-file-name dir))
670 "cd <dir>; ! ") 670 "cd <dir>; ! ")
671 "on " 671 "on "
672 (if on-each "each ") 672 (if on-each "each ")
673 "%s: ") 673 "%s: ")
674 (and (not on-each) current-prefix-arg) 674 (and (not on-each) current-prefix-arg)