awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-16 15:56:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor refactors across the board

Browse Source 
- when-let* -> when-let
- Fix projectile-locate-dominating-file for connected remote files
This commit is contained in:
Henrik Lissner
2019-06-25 21:38:16 +02:00
parent 4ecf6c9414
commit 9a02bd8ac8
42 changed files with 114 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
core/autoload/files.el
View File

@@ -167,7 +167,7 @@ file if it exists, without confirmation."
(list (read-file-name "Copy file to: ")
current-prefix-arg))
(pcase (catch 'status
(when-let* ((dest (doom--copy-file (buffer-file-name) new-path force-p)))
(when-let (dest (doom--copy-file (buffer-file-name) new-path force-p))
(doom--update-file new-path)
(message "File successfully copied to %s" dest)))
(`overwrite-self (error "Cannot overwrite self"))
@@ -184,7 +184,7 @@ file if it exists, without confirmation."
(pcase (catch 'status
(let ((old-path (buffer-file-name))
(new-path (expand-file-name new-path)))
(when-let* ((dest (doom--copy-file old-path new-path force-p)))
(when-let (dest (doom--copy-file old-path new-path force-p))
(when (file-exists-p old-path)
(delete-file old-path))
(kill-current-buffer)