comparison lisp/ffap.el @ 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 4229613c1982
children a77d473867b8
comparison
equal deleted inserted replaced
22213:84c3c863f0bd 22214:daca88de8a78
1638 (if (and (interactive-p) 1638 (if (and (interactive-p)
1639 (if dired-at-point-require-prefix 1639 (if dired-at-point-require-prefix
1640 (not current-prefix-arg) 1640 (not current-prefix-arg)
1641 current-prefix-arg)) 1641 current-prefix-arg))
1642 (let (current-prefix-arg) ; already interpreted 1642 (let (current-prefix-arg) ; already interpreted
1643 (call-interactively dired-function)) 1643 (call-interactively 'dired))
1644 (or filename (setq filename (dired-at-point-prompter))) 1644 (or filename (setq filename (dired-at-point-prompter)))
1645 (cond 1645 (cond
1646 ((ffap-url-p filename) 1646 ((ffap-url-p filename)
1647 (funcall ffap-url-fetcher filename)) 1647 (funcall ffap-url-fetcher filename))
1648 ((and ffap-dired-wildcards 1648 ((and ffap-dired-wildcards
1676 (global-set-key [S-mouse-3] 'ffap-at-mouse) 1676 (global-set-key [S-mouse-3] 'ffap-at-mouse)
1677 (global-set-key [C-S-mouse-3] 'ffap-menu) 1677 (global-set-key [C-S-mouse-3] 'ffap-menu)
1678 (global-set-key "\C-x\C-f" 'find-file-at-point) 1678 (global-set-key "\C-x\C-f" 'find-file-at-point)
1679 (global-set-key "\C-x4f" 'ffap-other-window) 1679 (global-set-key "\C-x4f" 'ffap-other-window)
1680 (global-set-key "\C-x5f" 'ffap-other-frame) 1680 (global-set-key "\C-x5f" 'ffap-other-frame)
1681 (define-key ctl-x-map "\C-xd" 'dired-at-point)
1681 (add-hook 'gnus-summary-mode-hook 'ffap-gnus-hook) 1682 (add-hook 'gnus-summary-mode-hook 'ffap-gnus-hook)
1682 (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook) 1683 (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook)
1683 (add-hook 'vm-mode-hook 'ffap-ro-mode-hook) 1684 (add-hook 'vm-mode-hook 'ffap-ro-mode-hook)
1684 (add-hook 'rmail-mode-hook 'ffap-ro-mode-hook) 1685 (add-hook 'rmail-mode-hook 'ffap-ro-mode-hook)
1685 ;; (setq dired-x-hands-off-my-keys t) ; the default 1686 ;; (setq dired-x-hands-off-my-keys t) ; the default