Autoupdate pwd in scratch buffers

This commit is contained in:
Henrik Lissner 2016-04-19 02:40:32 -04:00
parent 2aea001fac
commit eeba45bdc5

View file

@ -257,7 +257,7 @@ Examples:
(let ((dir (or dir (narf/project-root))))
(with-current-buffer (get-buffer-create "*scratch*")
(setq default-directory dir)
(setq header-line-format '(:eval (concat "" default-directory))))))
(setq header-line-format '(:eval (concat "" (abbreviate-file-name default-directory)))))))
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;