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

Set buffer-file-name for indirect buffers #130

Browse source
This commit is contained in:
Henrik Lissner 2017-07-05 18:19:51 +02:00
parent 8edba65504
commit ac70606452
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core.el
View file

@ -171,6 +171,20 @@ enable multiple minor modes for the same regexp.")
(add-hook 'find-file-hook #'doom|enable-minor-mode-maybe)
;; ensure indirect buffers have buffer-file-name
(defun doom*set-indirect-buffer-filename (orig-fn base-buffer name &optional clone)
"In indirect buffers, `buffer-file-name' is nil, which can cause problems
with functions that require it (like modeline segments)."
(let ((file-name (buffer-file-name base-buffer))
(buffer (funcall orig-fn base-buffer name clone)))
(when (and file-name buffer)
(with-current-buffer buffer
(unless buffer-file-name
(setq buffer-file-name file-name
buffer-file-truename (file-truename file-name)))))
buffer))
(advice-add #'make-indirect-buffer :around #'doom*set-indirect-buffer-filename)
;;;
;; Initialize