From b469d3ad43e197b53204b35817a914df431b187e Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Thu, 16 Mar 2023 09:47:42 -0400 Subject: Helper function for viewing logs --- emacs/.config/emacs-kj/init.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el index e1938f4..f764fb3 100644 --- a/emacs/.config/emacs-kj/init.el +++ b/emacs/.config/emacs-kj/init.el @@ -737,5 +737,12 @@ (expand-file-name "lisp" user-emacs-directory))) (require module)) +;; Experimental +(defun find-file-keeping-default-directory (filename) + (let ((dir default-directory)) + (with-current-buffer (find-file filename) + (setq default-directory dir)))) +(define-key embark-file-map "@" 'find-file-keeping-default-directory) + ;; Restore gc. (setq gc-cons-threshold (* 16 1024 1024)) -- cgit v1.2.3