Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 242 Bytes
(defun find-file-in-home-dir ()
"call 'find-file with a starting directory"
(interactive)
(let ((default-directory "~/"))
(call-interactively 'find-file)))
(define-key (current-global-map) [remap find-file] 'find-file-in-home-dir)
Something went wrong with that request. Please try again.