Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-shell.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 9f59509498e1
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
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)