Mercurial > emacs
changeset 105966:1b85a4b6472f
(ffap-alternate-file-other-window, ffap-literally): New functions.
(find-file-literally-at-point): Alias of `ffap-literally'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 12 Nov 2009 10:41:50 +0000 |
| parents | 3f64b8380468 |
| children | e28c9547f91d |
| files | lisp/ChangeLog lisp/ffap.el |
| diffstat | 2 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Nov 12 06:55:39 2009 +0000 +++ b/lisp/ChangeLog Thu Nov 12 10:41:50 2009 +0000 @@ -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):
--- a/lisp/ffap.el Thu Nov 12 06:55:39 2009 +0000 +++ b/lisp/ffap.el Thu Nov 12 10:41:50 2009 +0000 @@ -1708,6 +1708,22 @@ (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: