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 | |
| parent | 6d341a2a0941ec4cb3087636759017e9370f0c84 (diff) | |
| download | emacs-e2685eb734e5ea37f223f97a2e80013deff2f5f1.tar.gz | |
(ffap-alternate-file-other-window, ffap-literally): New functions.
(find-file-literally-at-point): Alias of `ffap-literally'.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/ffap.el | 16 |
2 files changed, 22 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 000d55ab89e..8354e117e76 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-11-12 Juri Linkov <juri@jurta.org> + + * ffap.el (ffap-alternate-file-other-window, ffap-literally): + New functions. + (find-file-literally-at-point): Alias of `ffap-literally'. + 2009-11-12 Dan Nicolaescu <dann@ics.uci.edu> * textmodes/ispell.el (ispell-skip-region-alist): diff --git a/lisp/ffap.el b/lisp/ffap.el index 939b287c528..a0e0d411206 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: |