# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1258022510 0
# Node ID 1b85a4b6472faf7c815f97394c44f953f3d3ad23
# Parent  3f64b838046810ebae9a6b5497de7253415e96cb
(ffap-alternate-file-other-window, ffap-literally): New functions.
(find-file-literally-at-point): Alias of `ffap-literally'.

diff -r 3f64b8380468 -r 1b85a4b6472f lisp/ChangeLog
--- 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):
diff -r 3f64b8380468 -r 1b85a4b6472f lisp/ffap.el
--- 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: