Dired 7.5 bug: dired-do-compress doesn't work from dired-popup-menu

Giacomo Boffi (sboff@hp735.stru.polimi.it)
Tue, 27 Sep 94 15:37:17 +0100 

well, i'm baffled to find problems with dired while i'm beta testing efs...

well, it's exactly what i said in the subject line. pressing 'Z' or
M-x dired-do-compress, is ok.

using the dired-popup-menu:Actions:Compress/Uncompress entry, i'm
told, in the minibuffer,

Compress or Uncompress: 0 files

that's all.
					gb

========================================================================

Emacs  : GNU Emacs 19.11 XEmacs Lucid of Sat Sep 10 1994 on julienas (hpux)
Package: Dired

current state:
==============
(setq
      dired-version "7.5"
     dired-after-readin-hook '(font-lock-fontify-buffer)
     dired-auto-shell-command-alist nil
     dired-backup-if-overwrite nil
     dired-before-readin-hook '(efs-dired-before-readin)
     dired-bibtex-unclean-extensions '(".blg" ".bbl")
     dired-chown-program "chown"
     dired-cleanup-alist '(("tex" ".cp" ".cps" ".fn" ".fns" ".ky"
".kys" ".pg" ".pgs" ".tp" ".tps" ".vr" ".vrs" ".toc" ".log" ".aux"
".idx" ".lof" ".lot" ".glo" ".blg" ".bbl")
			   ("patch" ".rej" ".orig")
			   )
     dired-compression-method 'compress
     dired-compression-method-alist '((gzip ".gz" ("gzip") ("gzip" "-d") "-f")
				      (compress ".Z" ("compress" "-f") ("compress" "-d") "-f")
				      (pack ".z" ("pack" "-f") ("unpack"))
				      (compact ".C" ("compact") ("uncompact"))
				      )
     dired-copy-preserve-time nil
     dired-dwim-target nil
     dired-failed-marker-shell 33
     dired-filename-re-ext "\\..+$"
     dired-find-subdir nil
     dired-gnutar-program nil
     dired-grep-load-hook '(#<byte-code
			    nil
			    "@ABC#"
			    [efs-overwrite-fn "efs" dired-grep-delete-local-temp-file efs-diff/grep-del-temp-file]
			    4>
			    )
     dired-keep-marker-compress t
     dired-keep-marker-copy 67
     dired-keep-marker-hardlink 72
     dired-keep-marker-kill 75
     dired-keep-marker-rename t
     dired-keep-marker-symlink 89
     dired-keep-marker-uucode 85
     dired-kept-versions 2
     dired-latex-unclean-extensions '(".idx" ".lof" ".lot" ".glo")
     dired-listing-switches "-al"
     dired-load-hook '((lambda nil (defun dired-mouse-view-file
(event) "View the file under the mouse." (interactive "e")
(mouse-set-point event) (dired-next-line 0) (dired-view-file))
(define-key dired-mode-map (quote (shift button2)) (quote
						    dired-mouse-view-file)))
)
     dired-local-variables-file ".dired"
     dired-ls-F-marks-symlinks t
     dired-ls-program "ls"
     dired-mail-reader 'rmail
     dired-mode-hook '(turn-on-font-lock dired-install-menubar)
     dired-mode-line-modified "-%s%s%s-"
     dired-no-confirm nil
     dired-omit-extensions '(".o"
".elc"
"~"
".bin"
".lbin"
".fasl"
".dvi"
".toc"
".log"
".aux"
".a"
".ln"
".lof"
".blg"
".bbl"
".glo"
".idx"
".lot"
".fmt"
".diff"
".oi"
".cp"
".cps"
".fn"
".fns"
".ky"
".kys"
".pg"
".pgs"
".tp"
".tps"
".vr"
".vrs"
".toc"
".log"
".aux"
".idx"
".lof"
".lot"
".glo"
".blg"
".bbl"
".rej"
".orig"
)
     dired-omit-files nil
     dired-omit-files-regexp "^[#.]"
     dired-patch-unclean-extensions '(".rej" ".orig")
     dired-shell-failure-marker 33
     dired-shell-load-hook nil
     dired-show-ls-switches nil
     dired-tex-unclean-extensions '(".toc" ".log" ".aux")
     dired-texinfo-unclean-extensions '(".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" ".pgs" ".tp" ".tps" ".vr" ".vrs")
     dired-trivial-filenames "^\\.\\.?$\\|^#"
     dired-unshar-program nil
     dired-use-file-transformers nil
     dired-verify-modtimes t
     reporter-version "2.12"
)