bug#15363: 24.3.50; (void-variable file) when using `dired-guess-shell-gzip-quiet' on a test.zip file

[Bastien]

Bastien Guerry <bzg@altern.org> writes:

> Step to reproduce:
>
> emacs -Q
> M-: (require 'dired-x) RET
> [hit `!' on a test.zip file]

Here is the backtrace:

Debugger entered--Lisp error: (void-variable file)
  (file-name-sans-extension file)
  (concat "unzip" (if dired-guess-shell-gzip-quiet " -q") " -d " 
(file-name-sans-extension file))
  eval((concat "unzip" (if dired-guess-shell-gzip-quiet " -q") " -d " 
(file-name-sans-extension file)))
  mapcar(eval ("unzip" "unzip -l" (concat "unzip" (if 
dired-guess-shell-gzip-quiet " -q") " -d " (file-name-sans-extension file))))
  dired-guess-default(("test.zip"))
  dired-guess-shell-command("! on test.zip: " ("test.zip"))
  apply(dired-guess-shell-command ("! on test.zip: " ("test.zip")))
  dired-mark-pop-up(nil shell ("test.zip") dired-guess-shell-command "! on 
test.zip: " ("test.zip"))
  dired-read-shell-command("! on %s: " nil ("test.zip"))
  (list (dired-read-shell-command "! on %s: " current-prefix-arg files) 
current-prefix-arg files)
  (let ((files (dired-get-marked-files t current-prefix-arg))) (list 
(dired-read-shell-command "! on %s: " current-prefix-arg files) 
current-prefix-arg files))
  call-interactively(dired-do-shell-command nil nil)
  command-execute(dired-do-shell-command)

-- 
 Bastien