Mercurial > emacs
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 |