(ffap-alternate-file-other-window, ffap-literally): New functions.

(find-file-literally-at-point): Alias of `ffap-literally'.

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: