'file-truename
Из документации:
Вернуть имя FILENAME, которое
должен быть абсолютным. Truename of a
имя файла найдено в погоне за символикой
ссылки как на уровне файла
и на уровне каталогов
содержащие его, пока не останется ссылок
на любом уровне.
Другое предлагаемое решение ('имя-файла-расширения) оставляет на месте символические ссылки, которые могут быть, а могут и не совпадать с вашими. 'file-truename использует' expand-file-name, поэтому они оба будут определять относительный каталог по умолчанию для буфера (который вы запрашиваете).
После просмотра комментария / вопроса к другому ответу проблема заключается в том, что каталогом по умолчанию является каталог буфера, который вызывает 'load.
К счастью, есть переменная, которая 'загружает наборы и хранит путь к загружаемому файлу. Попробуйте этот фрагмент кода:
;; this is in the file being loaded
(let ((default-directory (file-name-directory load-file-name)))
(file-truename "blih"))