Emacs Lisp Code:
;;定义变量 (defconst my-projects-path "~/My-Projects" "My projects dir") ;;定义函数 (defun goto-my-projects-dir () (interactive) (dired my-projects-path)) ;;定义快捷键 (define-key-list global-map `(("C-x G p" goto-my-projects-dir))))有需要的童鞋拿走吧,对Emacs感兴趣的朋友可以互相分享Emacs心得.