diff options
| -rw-r--r-- | emacs/.config/emacs-kj/init.el | 7 |
1 files changed, 7 insertions, 0 deletions
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)) |