diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-24 17:12:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-24 17:12:16 +0000 |
| commit | b8e2ae058095c2e79649c27382be00ac1a57c133 (patch) | |
| tree | 7d46ec3ddb0aea52c201cfbc4f9070079523d241 /lisp/ffap.el | |
| parent | 3d1b97838e7b5f02237c89d45bd5de41350a03de (diff) | |
| download | emacs-b8e2ae058095c2e79649c27382be00ac1a57c133.tar.gz | |
(dired-at-point): Eliminate var dired-function; use `dired'.
(ffap-bindings): Include a binding for C-x d.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index e352a793061..2f4e4a18e74 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1640,7 +1640,7 @@ ffap most of the time." (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 @@ ffap most of the time." (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) |