emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(lib): sudo-{this,save}-file: file path for indirect clones

Browse source 
If the buffer is an indirect clone, it may not have a buffer-file-name.

Also changes the command to throw an error if the current file has no
file path *and* is not a dired buffer.
This commit is contained in:
Henrik Lissner 2024-04-01 13:59:41 -04:00
parent ea4792ccd2
commit 392fe88ed0
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/lib/files.el
View file

@ -495,16 +495,17 @@ If FORCE-P, overwrite the destination file if it exists, without confirmation."
(interactive) (interactive)
(find-file (find-file
(doom--sudo-file-path (doom--sudo-file-path
(or buffer-file-name (or (buffer-file-name (buffer-base-buffer))
(when (or (derived-mode-p 'dired-mode) (when (or (derived-mode-p 'dired-mode)
(derived-mode-p 'wdired-mode)) (derived-mode-p 'wdired-mode))
default-directory))))) default-directory)
(user-error "Cannot determine the file path of the current buffer")))))
;;;###autoload ;;;###autoload
(defun doom/sudo-save-buffer () (defun doom/sudo-save-buffer ()
"Save this file as root." "Save this file as root."
(interactive) (interactive)
(let ((file (doom--sudo-file-path buffer-file-name))) (let ((file (doom--sudo-file-path (buffer-file-name (buffer-base-buffer)))))
(if-let (buffer (find-file-noselect file)) (if-let (buffer (find-file-noselect file))
(let ((origin (current-buffer))) (let ((origin (current-buffer)))
(copy-to-buffer buffer (point-min) (point-max)) (copy-to-buffer buffer (point-min) (point-max))