procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some regressions introduced by the previous dired-aux change

Browse source 
* lisp/dired-aux.el (dired-compress-file): Check that the file
we're compressing exists.  Also work outside the current directory.
This commit is contained in:
Lars Ingebrigtsen 2021-05-18 17:49:05 +02:00
parent 33c0994c7c
commit 68f5718c0a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired-aux.el
View file

@ -1334,7 +1334,8 @@ Return nil if no change in files."
(user-error "No compression rule found for suffix %s, \
see `dired-compress-file-alist' for the supported suffixes list."
dired-compress-file-default-suffix)
(and (or (not (file-exists-p out-name))
(and (file-exists-p file)
(or (not (file-exists-p out-name))
(y-or-n-p
(format
"File %s already exists. Really compress? "
@ -1343,8 +1344,7 @@ see `dired-compress-file-alist' for the supported suffixes list."
(replace-regexp-in-string
"%o" (shell-quote-argument out-name)
(replace-regexp-in-string
"%i" (shell-quote-argument
(file-name-nondirectory file))
"%i" (shell-quote-argument file)
(cdr rule)
nil t)
nil t))