From 9565bae1f98ba29649435a9506089ef263eda432 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 13 Apr 2016 16:14:45 -0400 Subject: [PATCH] scratch: autoupdate default-directory in header-line --- 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 6a67b7144..97b0c8403 100644 --- a/core/core-defuns.el +++ b/core/core-defuns.el @@ -210,7 +210,7 @@ Examples: (let ((dir (or dir (narf/project-root)))) (with-current-buffer (get-buffer-create "*scratch*") (setq default-directory dir) - (setq header-line-format (concat " ∴ " dir))))) + (setq header-line-format '(:eval (concat " ∴ " default-directory)))))) ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;