Dired 7.5 bug: dired-do-compress loses track of file

Jared_Rhine@hmc.edu
Sat, 1 Oct 1994 16:19:22 -0700 

Since the efs 1.12 release, I've had a problem with dired-do-compress.  W=
hen
I use it on a file that has an extension of some sort (say, uncompress
'man.el.gz'), further dired operations give the trackback below.  This
doesn't appear to happen on files with no extension (eg. 'LCD-datafile').=


I will be upgrading to 19.27 over the course of the day and if the proble=
m
stops, I'll let you know.

Signalling: (error "No file on this line")
  signal(error ("No file on this line"))
  error("No file on this line")
  dired-move-to-filename(t 2306 2375)
  efs-real-dired-get-filename(nil nil)
  #[(&optional localp no-error-if-not-filep) "=C0 \n\"=87" [efs-real-dire=
d-get-filename localp no-error-if-not-filep] 3](nil)
  apply(#[(&optional localp no-error-if-not-filep) "=C0 \n\"=87" [efs-rea=
l-dired-get-filename localp no-error-if-not-filep] 3] nil)
  dired-get-filename(nil)
  dired-get-marked-files(nil nil)
  byte-code("=C0  !=C2=1B=89=1C=C5U=83,=00=C6=C7=C8=0E  \"=CA=CB=0E\f\"=C2=CD=
$=89=1E=0E=CF=98=84(=00=D0=0E=0E!=16  )=82=F2=00=D1=C2  \"=13=D2=0E=13>=84=F2=
=00=D4 =1E=15=CA=D6=0B\"=1E=17=CF=1E=18=C5=1E=19=C2=1E=1A=0BG=1E=1B=C2=1E=
=1C=CA=DD=0B\"=88=0E=19=C5U=84m=00=C7=DE=DF=0E  =0E\f=9E8@=0E=19#=16=18=0E=
=1A=83=9B=00=CD=C2=1E =1E!=0E=18=CF=98=84=85=00=0E=18=E2P=16=18=E3=CA=E4=0E=
=1A\"=E5\"=16=1A=0E=18=E6=E7=0E=1A=E8#P=16=18*=0E=17G=E9U=83=B3=00=C7=EA=0E=
=18=C5=EBO=0E=17@#=16=18=82=E2=00=0E=1AG=E9V=84=C7=00=0E=19=C5U=84=D7=00=0E=
=1A=83=D7=00=C7=EC=0E=18=0E=1B=ED=0E=1B!$=16=18=82=E2=00=C7=EE=0E=18=ED=0E=
=1B!#=16=18=EF=C2=D2=0E=17=F0=0E=18%=84=F0=00=C5=14.=07\f=0B*D=87" [prefi=
x-numeric-value current-prefix-arg nil files arg 0 completing-read format=
 "Set compression method (currently %s): " dired-compression-method mapca=
r #[(x) "=C0  @!=C2B=87" [symbol-name x nil] 2] dired-compression-method-a=
list t new "" intern dired-get-marked-files compress dired-no-confirm dir=
ed-current-directory dir #[(fn) "=C0  \n=C3#=87" [dired-make-relative fn d=
ir t] 4] rfiles prompt comp uncomp total elt #[(fn) "=C0  !=89=12<=83-=00=C3=
\n8@=1C=C5\f=0E=06\"=89=1E=07=83\"=00=0E=07=89AT=A1=82+=00\f=C8B=0E=06B=89=
=16=06*=87=0E T=89=16 =87" [dired-make-compressed-filename fn elt 3 metho=
d assoc uncomp count 1 comp] 4] "%s %d" 2 method case-fold-search "; " so=
rt #[(elt) "=08@=89=11=C2=98=83=0E=00=C3=11=82=19=00=C4=C5  \"=84=19=00=C6=
  P=11=08 =A0=88=08=87" [elt method "gzip" "gunzip" string-match "^un" "un=
"] 4] #[(x y) "=08@ @=99=87" [x y] 2] mapconcat #[(elt) "=C0=C1\n@\nA#=87=
" [format "%s %d" elt] 4] ", " 1 "%s %s " -2 "%s. Total: %d file%s " dire=
d-plural-s "%s file%s " dired-mark-pop-up y-or-n-p] 7)
  call-interactively(dired-do-compress)


Emacs  : GNU Emacs 19.25.1 of Fri Jun 17 1994 on osiris (sparc-sun-solari=
s2.3)
Package: Dired

current state:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
(setq
      dired-version "7.5"
     dired-after-readin-hook '(mode-line-abbreviate-buffer-identification=
)
     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 'gzip
     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 t
     dired-dwim-target t
     dired-failed-marker-shell 33
     dired-filename-re-ext "\\..+$"
     dired-find-subdir t
     dired-gnutar-program "tar"
     dired-grep-load-hook '(#[nil "=C0=C1=C2=C3#=87" [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 "-aFl"
     dired-load-hook nil
     dired-local-variables-file ".dired"
     dired-ls-F-marks-symlinks nil
     dired-ls-program "ls"
     dired-mail-reader 'vm
     dired-mode-hook nil
     dired-mode-line-modified "-%s%s%s-"
     dired-no-confirm '(byte-compile
compress
kill-dired-buffer
recursive-delete
create-top-dir
kill-dired-buffer
revert-subdirs
)
     dired-omit-extensions '(".o"
".elc"
"~"
".bin"
".lbin"
".fasl"
".dvi"
".toc"
".log"
".aux"
".a"
".ln"
".lof"
".blg"
".bbl"
".glo"
".idx"
".lot"
".fmt"
".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-load-hook nil
     dired-show-ls-switches t
     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 t
     dired-verify-modtimes t
     reporter-version "2.12"
)