emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(eval): set load-true-file-name & buffer-file-truename

Browse source 
So they are available in evaluated contexts.
This commit is contained in:
Henrik Lissner 2022-01-27 03:50:52 +01:00
parent 09098bed48
commit 7290f85cfd
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/lang/emacs-lisp/autoload.el
View file

@ -11,8 +11,8 @@ to a pop up buffer."
(string-trim-right (string-trim-right
(condition-case-unless-debug e (condition-case-unless-debug e
(let ((result (let ((result
(let ((buffer-file-name (let* ((buffer-file-name (buffer-file-name (buffer-base-buffer)))
(buffer-file-name (buffer-base-buffer))) (buffer-file-truename (file-truename buffer-file-name))
(doom--current-module (doom--current-module
(ignore-errors (doom-module-from-path buffer-file-name))) (ignore-errors (doom-module-from-path buffer-file-name)))
(debug-on-error t)) (debug-on-error t))

6
modules/tools/eval/autoload/eval.el
View file

@ -82,7 +82,11 @@
(defun +eval/region (beg end) (defun +eval/region (beg end)
"Evaluate a region between BEG and END and display the output." "Evaluate a region between BEG and END and display the output."
(interactive "r") (interactive "r")
(let ((load-file-name buffer-file-name)) (let ((load-file-name buffer-file-name)
(load-true-file-name
(or buffer-file-truename
(if buffer-file-name
(file-truename buffer-file-name)))))
(cond ((and (fboundp '+eval--ensure-in-repl-buffer) (cond ((and (fboundp '+eval--ensure-in-repl-buffer)
(ignore-errors (ignore-errors
(get-buffer-window (or (+eval--ensure-in-repl-buffer) (get-buffer-window (or (+eval--ensure-in-repl-buffer)