From eeba45bdc5fa7571f873ed0bc74aa737c5e10ec1 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 19 Apr 2016 02:40:32 -0400 Subject: [PATCH] Autoupdate pwd in scratch buffers --- core/core-defuns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/core-defuns.el b/core/core-defuns.el index 520d7301a..67a17afd6 100644 --- a/core/core-defuns.el +++ b/core/core-defuns.el @@ -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 ;;;;;;;;;;;;;;;;;;;;;