前回、root所有のファイルをsudoで自動的に開き直してくれる Emacs lisp の記事を書きました。わりと好評だったようでよかったです。 今回、rootユーザだけでなく、他のユーザのファイルも同様に開いて編集したいとのリクエストがきたので、修正してみました。以下になります。差し替えて使ってみてください。 (defun file-other-p (filename) "Return t if file FILENAME created by others." (if (file-exists-p filename) (/= (user-real-uid) (nth 2 (file-attributes filename))) t)) (defun file-username (filename) "Return File Owner." (if (file-exists-p file