Guest User

Untitled

a guest
Jun 22nd, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. (defun rwd-sudo-buffer ()
  2. "Revert buffer using tramp sudo.
  3. This will also reserve changes already made by a non-root user."
  4. (interactive)
  5. (let ((f (buffer-file-name)))
  6. (when f
  7. (let ((content (when (buffer-modified-p)
  8. (widen)
  9. (buffer-string))))
  10. (if (file-writable-p f)
  11. (revert-buffer)
  12. (kill-buffer (current-buffer))
  13. (find-file (concat "/sudo::" f))
  14. (when content
  15. (let ((buffer-read-only nil))
  16. (erase-buffer)
  17. (insert content))))))))
Add Comment
Please, Sign In to add comment