Move init-file finding to a named function for better hotkey hints

This commit is contained in:
Ohad Livne 2025-06-04 22:47:10 +03:00
parent dc833f1f01
commit e99c4e31ed
Signed by: libohad-dev
GPG key ID: 34FDC68B51191A4D

View file

@ -6,10 +6,15 @@
(zerop (call-process "git" nil nil nil (zerop (call-process "git" nil nil nil
"-C" dirname "ls-files" "--error-unmatch" filename)))) "-C" dirname "ls-files" "--error-unmatch" filename))))
(defun find-init-file ()
"Find the user's init file"
(interactive)
(find-file user-init-file))
(use-package emacs (use-package emacs
:ensure nil :ensure nil
:bind (("C-z" . nil) :bind (("C-z" . nil)
("C-z i" . (lambda () (interactive) (find-file user-init-file))) ("C-z i" . find-init-file)
("C-z f" . ffap)) ("C-z f" . ffap))
:hook ((after-save . executable-make-buffer-file-executable-if-script-p) :hook ((after-save . executable-make-buffer-file-executable-if-script-p)
(xref-after-update . outline-minor-mode)) (xref-after-update . outline-minor-mode))