From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 May 1998 17:12:16 +0000 (+0000)
Subject: (dired-at-point): Eliminate var dired-function; use `dired'.
X-Git-Tag: emacs-20.3~863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8e2ae058095c2e79649c27382be00ac1a57c133;p=emacs.git

(dired-at-point): Eliminate var dired-function; use `dired'.
(ffap-bindings): Include a binding for C-x d.
---

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)