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))))
|
(let ((dir (or dir (narf/project-root))))
|
||||||
(with-current-buffer (get-buffer-create "*scratch*")
|
(with-current-buffer (get-buffer-create "*scratch*")
|
||||||
(setq default-directory dir)
|
(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 ;;;;;;;;;;;;;;;;;;;;;
|
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue