summaryrefslogtreecommitdiff
path: root/lisp/ffap.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1998-05-24 17:12:16 +0000
committerRichard M. Stallman <rms@gnu.org>1998-05-24 17:12:16 +0000
commit6e1867d359a7d95736c8aca3818f3dd5e9c4a8c7 (patch)
treedbdf6d87a2f8df7c959d6eebf47835b4d72b5c9c /lisp/ffap.el
parent29c818de831b8262bbb49a7e903122474ae0d96d (diff)
downloademacs-6e1867d359a7d95736c8aca3818f3dd5e9c4a8c7.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.el3
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)