Fix obsolete usage of `lexical-let`
This commit is contained in:
parent
5a0a5b5ea6
commit
836429db1c
16
init.el
16
init.el
|
@ -2061,15 +2061,15 @@ 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
|
||||||
"file: "
|
"file: "
|
||||||
(dired-dwim-target-directory)))))
|
(dired-dwim-target-directory)))))
|
||||||
(if (file-newer-than-file-p file1 file2)
|
(if (file-newer-than-file-p file1 file2)
|
||||||
(ediff-files file2 file1)
|
(ediff-files file2 file1)
|
||||||
(ediff-files file1 file2))
|
(ediff-files file1 file2))
|
||||||
|
|
Loading…
Reference in New Issue