[Emacs-diffs] emacs/lisp ChangeLog ffap.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/11/12 10:41:53

Modified files:
        lisp           : ChangeLog ffap.el 

Log message:
        (ffap-alternate-file-other-window, ffap-literally): New functions.
        (find-file-literally-at-point): Alias of `ffap-literally'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16608&r2=1.16609
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ffap.el?cvsroot=emacs&r1=1.86&r2=1.87

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16608
retrieving revision 1.16609
diff -u -b -r1.16608 -r1.16609
--- ChangeLog   12 Nov 2009 06:55:39 -0000      1.16608
+++ ChangeLog   12 Nov 2009 10:41:50 -0000      1.16609
@@ -1,3 +1,9 @@
+2009-11-12  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * textmodes/ispell.el (ispell-skip-region-alist):

Index: ffap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ffap.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -b -r1.86 -r1.87
--- ffap.el     2 Oct 2009 03:48:40 -0000       1.86
+++ ffap.el     12 Nov 2009 10:41:53 -0000      1.87
@@ -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: