Emacs Part 46

[0963 名無しさん＠お腹いっぱい。 2014/12/08(月) 21:56:00.04]

>>960
やっつけだけどこんな感じ？

(defun insert-relative-file-path (file)
(interactive "ffile name:")
(insert (file-relative-name file (buffer-file-name))))