diff options
| author | Lars Ingebrigtsen | 2019-11-14 06:31:50 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-11-14 06:31:50 +0100 |
| commit | 3591cb8dcc04181e2a3f1bbcdbf8e3286f2b5434 (patch) | |
| tree | 900ca84df3adb7cff71206a6e79926422eecb3a5 | |
| parent | d9ea77af4cbbc4826200ef712a93592320978f15 (diff) | |
| download | emacs-3591cb8dcc04181e2a3f1bbcdbf8e3286f2b5434.tar.gz emacs-3591cb8dcc04181e2a3f1bbcdbf8e3286f2b5434.zip | |
Make dired-do-compress-to require format-spec
* lisp/dired-aux.el (dired-do-compress-to): Require format-spec
runtime (bug#38189).
| -rw-r--r-- | lisp/dired-aux.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 9f34b2afe99..6fcb074f6a1 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1061,6 +1061,7 @@ Prompt for the archive file name. | |||
| 1061 | Choose the archiving command based on the archive file-name extension | 1061 | Choose the archiving command based on the archive file-name extension |
| 1062 | and `dired-compress-files-alist'." | 1062 | and `dired-compress-files-alist'." |
| 1063 | (interactive) | 1063 | (interactive) |
| 1064 | (require 'format-spec) | ||
| 1064 | (let* ((in-files (dired-get-marked-files nil nil nil nil t)) | 1065 | (let* ((in-files (dired-get-marked-files nil nil nil nil t)) |
| 1065 | (out-file (expand-file-name (read-file-name "Compress to: "))) | 1066 | (out-file (expand-file-name (read-file-name "Compress to: "))) |
| 1066 | (rule (cl-find-if | 1067 | (rule (cl-find-if |