Mercurial > emacs
changeset 22214:daca88de8a78
(dired-at-point): Eliminate var dired-function; use `dired'.
(ffap-bindings): Include a binding for C-x d.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 24 May 1998 17:12:16 +0000 |
parents | 84c3c863f0bd |
children | 9a2d76cd1da4 |
files | lisp/ffap.el |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ffap.el Sun May 24 17:04:55 1998 +0000 +++ b/lisp/ffap.el Sun May 24 17:12:16 1998 +0000 @@ -1640,7 +1640,7 @@ (not current-prefix-arg) current-prefix-arg)) (let (current-prefix-arg) ; already interpreted - (call-interactively dired-function)) + (call-interactively 'dired)) (or filename (setq filename (dired-at-point-prompter))) (cond ((ffap-url-p filename) @@ -1678,6 +1678,7 @@ (global-set-key "\C-x\C-f" 'find-file-at-point) (global-set-key "\C-x4f" 'ffap-other-window) (global-set-key "\C-x5f" 'ffap-other-frame) + (define-key ctl-x-map "\C-xd" 'dired-at-point) (add-hook 'gnus-summary-mode-hook 'ffap-gnus-hook) (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook) (add-hook 'vm-mode-hook 'ffap-ro-mode-hook)