2 ;;(add-hook 'elscreen-create-hook
4 ;; (elscreen-set-default-directory (elscreen-get-current-screen) "~/CPVE/")))
5 ;;; (elscreen-cd-default-directory "~/"))
8 (add-hook 'elscreen-goto-hook
10 (elscreen-cd-default-directory
11 (elscreen-get-default-directory (elscreen-get-current-screen)))))
14 "Set default directory screen."
15 (interactive "sSet dir:")
16 (elscreen-set-default-directory (elscreen-get-current-screen) dir)
21 "show elscreen default directory."
24 (elscreen-get-default-directory (elscreen-get-current-screen))))
28 (add-hook 'buffer-list-update-hook
30 (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
31 (if (> (length el-dir) 0)
35 (provide 'init-elscreen)