Fix obsolete usage of lexical-let

This commit is contained in:
Daniel - 2022-08-04 18:52:11 +02:00
parent 5a0a5b5ea6
commit 836429db1c
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625

View File

@ -2061,10 +2061,10 @@ respectively."
"Compare marked files in dired with ediff." "Compare marked files in dired with ediff."
;; from: https://oremacs.com/2017/03/18/dired-ediff/ ;; from: https://oremacs.com/2017/03/18/dired-ediff/
(interactive) (interactive)
(lexical-let ((files (dired-get-marked-files)) (let ((files (dired-get-marked-files))
(wnd (current-window-configuration))) (wnd (current-window-configuration)))
(if (<= (length files) 2) (if (<= (length files) 2)
(lexical-let ((file1 (car files)) (let ((file1 (car files))
(file2 (if (cdr files) (file2 (if (cdr files)
(cadr files) (cadr files)
(read-file-name (read-file-name