Autoupdate pwd in scratch buffers
This commit is contained in:
parent
2aea001fac
commit
eeba45bdc5
1 changed files with 1 additions and 1 deletions
|
@ -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 ;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue