diff options
| author | Michael Heerdegen | 2018-09-04 22:00:11 +0200 |
|---|---|---|
| committer | Michael Heerdegen | 2018-10-20 18:51:38 +0200 |
| commit | 1531bca523ea84c20eec9ce1dde0202a78956313 (patch) | |
| tree | f2f2e3e57cf40253a553673d0762851c0b9dd56a | |
| parent | cf7932712a1dac49fb299b20762d2f3329f9786b (diff) | |
| download | emacs-1531bca523ea84c20eec9ce1dde0202a78956313.tar.gz emacs-1531bca523ea84c20eec9ce1dde0202a78956313.zip | |
Fix help-form binding in dired-create-files
This fixes Bug#32630: since "dired-aux" moved to lexical binding mode,
the free variable TO in the constructed HELP-FORM got out of scope of
the surrounding 'let'.
* lisp/dired-aux.el (dired-create-files): Make the binding of
HELP-FORM a string.
| -rw-r--r-- | lisp/dired-aux.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index e40627309d7..eaf5f257012 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -1712,7 +1712,7 @@ or with the current marker character if MARKER-CHAR is t." | |||
| 1712 | (let* ((overwrite (file-exists-p to)) | 1712 | (let* ((overwrite (file-exists-p to)) |
| 1713 | (dired-overwrite-confirmed ; for dired-handle-overwrite | 1713 | (dired-overwrite-confirmed ; for dired-handle-overwrite |
| 1714 | (and overwrite | 1714 | (and overwrite |
| 1715 | (let ((help-form '(format-message "\ | 1715 | (let ((help-form (format-message "\ |
| 1716 | Type SPC or `y' to overwrite file `%s', | 1716 | Type SPC or `y' to overwrite file `%s', |
| 1717 | DEL or `n' to skip to next, | 1717 | DEL or `n' to skip to next, |
| 1718 | ESC or `q' to not overwrite any of the remaining files, | 1718 | ESC or `q' to not overwrite any of the remaining files, |