diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2023-03-16 09:47:42 -0400 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2023-03-16 09:48:44 -0400 |
| commit | b469d3ad43e197b53204b35817a914df431b187e (patch) | |
| tree | e9329dddd38686679e292c1101861646e775078a /emacs/.config/emacs-kj | |
| parent | 11be25ed81cdb198fe81d3c4db06ed271da1401f (diff) | |
Helper function for viewing logs
Diffstat (limited to 'emacs/.config/emacs-kj')
| -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)) |