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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 000d55ab89e07746e23b731492bb8fcc88e2701c..8354e117e76a6df18a881eb38082c6199796de38 100644 (file)
--- 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 939b287c52829a889dfb65323adb4482cf6aa852..a0e0d4112067af918d91e8a9164b53746c0f02bb 100644 (file)
--- 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)
+
 \f
 ;;; Bug Reporter: