Dired 7.4 bug: subdirectory deletion

John Interrante (interran@uluru.Stanford.EDU)
Sun, 4 Sep 94 13:53:21 PDT


Emacs  : GNU Emacs 19.25.95.1 (sparc-sun-sunos4shr) of Fri Sep  2 1994 on uluru
Package: Dired

If I perform the following steps in a dired buffer:

1.  Type `d' to mark a subdirectory called lib for deletion
2.  Type `x' to expunge it
3.  Type `y e s RET' to the prompt "Delete lib (yes or no)"
4.  Type `n o RET' to the prompt "Recursively delete directory and
    files within lib (yes or no)"

lib still disappears from the dired buffer as if it had been deleted
even though it's still there.  If I type `C-g' to the question instead
of typing `n o RET', lib will stay around.

		John

current state:
==============
(setq
      dired-version "7.4"
     dired-after-readin-hook nil
     dired-auto-shell-command-alist '(("\\.tar\\.\\([Zz]\\|gz\\)$"
(concat "zcat * | (cd " (dired-dwim-target-directory) "; tar xf -)")
"zcat * | tar tvf - | head")
("\\.tar$" "tar xf" "tar tvf * | head")
("\\.shar\\.\\([Zz]\\|gz\\)$" (concat "zcat * | (cd "
(dired-dwim-target-directory) "; unshar)") "zcat * | unshar")
("\\.shar$" "unshar" "sh")
("\\.ps\\.\\([Zz]\\|gz\\)$" "zcat * | ghostview -")
("\\.ps$" "ghostview" "lpr")
("\\.plot$" "ghostview" "lpr")
("\\.dvi$" "xdvi" "dvips")
("\\.tex$" "latex" "tex")
("\\.texi\\(nfo\\)?$" "makeinfo" "texi2dvi")
("\\.gp$" "gnuplot")
("\\.fig$" "xfig")
("\\.gif$" "xv")
("\\.jpg$" "xv")
("\\.p[bgpn]m$" "xv")
("\\.tif$" "xv")
("\\.xbm$" "bitmap")
("\\.mpg$" "mpeg_play")
("\\.uu$" "uudecode")
("\\.zip$" "unzip" "zipinfo")
("\\.g?z$" "gunzip")
("\\.Z$" "gunzip" "znew")
("^\\.$" "findsave" "find * -user interran -print" "findperm")
("." (if (file-directory-p (dired-get-filename)) "find * -type d
-print | perl -ple 'chmod 02775,$_;'" nil))
)
     dired-backup-if-overwrite nil
     dired-before-readin-hook '(efs-dired-before-readin)
     dired-bibtex-unclean-extensions '(".blg" ".bbl")
     dired-chown-program "/etc/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 nil
     dired-dwim-target t
     dired-failed-marker-shell 33
     dired-filename-re-ext "\\..+$"
     dired-find-subdir nil
     dired-gnutar-program nil
     dired-grep-load-hook '(#[nil "ÀÁÂÃ#‡"
[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 nil
     dired-keep-marker-hardlink nil
     dired-keep-marker-kill 75
     dired-keep-marker-rename nil
     dired-keep-marker-symlink nil
     dired-keep-marker-uucode 85
     dired-kept-versions 2
     dired-latex-unclean-extensions '(".idx" ".lof" ".lot" ".glo")
     dired-listing-switches "-alg"
     dired-load-hook '(#[nil "ÀÁ!‡" [require efs-dired] 2]
dired-load-cust
)
     dired-local-variables-file ".dired"
     dired-ls-F-marks-symlinks nil
     dired-ls-program "ls"
     dired-mail-reader 'rmail
     dired-mode-hook '(turn-on-face-lock)
     dired-mode-line-modified "-%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"
".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 t
     dired-verify-modtimes t
     reporter-version "2.12"
)