这忠告会做你想要什么:
(defadvice dired (around dired-jump-to-buffer activate)
"When running dired, move cursor to the line for the buffer we came from"
(interactive (list nil nil)) ;; bogus values, will be overwritten below
(let ((coming-from (buffer-file-name)))
(ad-set-args 0 (dired-read-dir-and-switches ""))
ad-do-it
(when (and coming-from
(equal (file-truename default-directory) (file-truename (file-name-directory coming-from))))
(goto-char (point-min))
(search-forward (file-name-nondirectory coming-from) nil t))))
注:Works的C-X d,而不是C-X C-F切入点dired。
如果按照手册中的说明操作,您将获得正确的键绑定:'Ch ig''(dired-x)可选的安装Dired Jump'' RET' – phils 2014-08-23 06:25:38