mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

find-file-sudo interactive

Browse Source
This commit is contained in:
MitchMarq42 2023-04-14 11:36:30 -08:00
parent 0f42657983
commit 02e35d83f0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/mitch-packages.el
View File

@ -51,6 +51,7 @@
(expand-file-name "tramp-history" backup-directory)) (expand-file-name "tramp-history" backup-directory))
:config :config
(defun find-file-sudo (&rest throwaway) (defun find-file-sudo (&rest throwaway)
(interactive)
(if buffer-file-name (if buffer-file-name
(unless (or (file-writable-p buffer-file-name) (unless (or (file-writable-p buffer-file-name)
(file-directory-p buffer-file-name)) (file-directory-p buffer-file-name))