Permalink
Browse files

Override existing find-file binding instead of explicitly binding to …

…C-x C-f
  • Loading branch information...
1 parent 2f3bc49 commit 50e6c4873d0f097a0ddf89d9568bf3b95034bde3 @eentzel committed Apr 5, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 find-file-in-home-dir.el
@@ -4,4 +4,4 @@
(let ((default-directory "~/"))
(call-interactively 'find-file)))
-(global-set-key "\C-x\C-f" 'find-file-in-home-dir)
+(define-key (current-global-map) [remap find-file] 'find-file-in-home-dir)

0 comments on commit 50e6c48

Please sign in to comment.