From e2685eb734e5ea37f223f97a2e80013deff2f5f1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 12 Nov 2009 10:41:50 +0000 Subject: [PATCH] (ffap-alternate-file-other-window, ffap-literally): New functions. (find-file-literally-at-point): Alias of `ffap-literally'. --- lisp/ChangeLog | 6 ++++++ lisp/ffap.el | 16 ++++++++++++++++ 2 files changed, 22 insertions(+) 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 + + * 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 * 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: -- 2.39.5