diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-24 13:17:41 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-24 13:17:41 -0700 |
| commit | 37f736e2286acca0db5c728202400ba6126382a0 (patch) | |
| tree | a59eafe004546e2020319e2a1c7fc491907e137a | |
| parent | c8e51ad2cfd3963886fbdd8380dda59b97be6433 (diff) | |
| download | dotfiles-37f736e2286acca0db5c728202400ba6126382a0.tar.gz | |
reflow
| -rw-r--r-- | .emacs.d/init.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 084e9f10..b59e849f 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -4476,9 +4476,11 @@ that the user is expecting that it might pop up." (defun spw/slime-repl-header-line (&optional pwd) (with-current-buffer (slime-connection-output-buffer) - (let* ((pwd (abbreviate-file-name - (string-remove-suffix - "/" (or pwd (slime-eval '(swank:default-directory)))))) + (let* ((pwd + (abbreviate-file-name + (string-remove-suffix "/" (or pwd + (slime-eval + '(swank:default-directory)))))) (conn (slime-connection)) (host (car (process-contact conn)))) (setq header-line-format |