diff options
| author | Juri Linkov <juri@jurta.org> | 2009-11-12 10:41:50 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2009-11-12 10:41:50 +0000 |
| commit | e2685eb734e5ea37f223f97a2e80013deff2f5f1 (patch) | |
| tree | 201eb9c485a9903d6ebe09834dca9fb3e1e21332 /lisp/ffap.el | |
| parent | 6d341a2a0941ec4cb3087636759017e9370f0c84 (diff) | |
(ffap-alternate-file-other-window, ffap-literally): New functions.
(find-file-literally-at-point): Alias of `ffap-literally'.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 939b287c52..a0e0d41120 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1708,6 +1708,22 @@ Only intended for interactive use." (let ((ffap-file-finder 'find-alternate-file)) (call-interactively 'ffap))) +(defun ffap-alternate-file-other-window () + "Like `ffap' and `find-alternate-file-other-window'. +Only intended for interactive use." + (interactive) + (let ((ffap-file-finder 'find-alternate-file-other-window)) + (call-interactively 'ffap))) + +(defun ffap-literally () + "Like `ffap' and `find-file-literally'. +Only intended for interactive use." + (interactive) + (let ((ffap-file-finder 'find-file-literally)) + (call-interactively 'ffap))) + +(defalias 'find-file-literally-at-point 'ffap-literally) + ;;; Bug Reporter: |