emacs 修改文件提示没有权限

(defun sudo-edit-current-file ()
  (interactive)
  (when (buffer-file-name)
    (let ((old-point (point)))
      (find-file (concat "/sudo:root@localhost:" (buffer-file-name)))
      (goto-char old-point))))

先打开文件, 然后 M-x sudo-edit-current-file

2 个赞