emacs. как сделать чтобы при открытие несужествующие директории она создавалась

(defun find-file-ext (filename &optional wildcards)
  (interactive "FFind file: ")
  (let ((dir (file-name-directory filename)))
    (if (not (file-directory-p dir))
	(make-directory dir t))
    (find-file filename wildcards)))

(global-set-key [(control ?x) (control ?f)] 'find-file-ext)