Mercurial > dotfiles
view .elisp/settings/99.move-file.el @ 498:ab38b9bf226d
bootstrap: always install exec-path-from-shell-initialize
Required fixing the melpa URL, which has been broken ~forever.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Sat, 03 Oct 2020 11:14:06 -0400 |
parents | 2f24474b1f84 |
children |
line wrap: on
line source
;; emacs move-file function from http://zck.me/emacs-move-file (defun move-file (new-location) "Write this file to NEW-LOCATION, and delete the old one." (interactive (list (if buffer-file-name (read-file-name "Move file to: ") (read-file-name "Move file to: " default-directory (expand-file-name (file-name-nondirectory (buffer-name)) default-directory))))) (when (file-exists-p new-location) (delete-file new-location)) (let ((old-location (buffer-file-name))) (write-file new-location t) (when (and old-location (file-exists-p new-location)) (delete-file old-location))))