[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog ffap.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog ffap.el |
Date: |
Thu, 12 Nov 2009 10:41:54 +0000 |
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:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog ffap.el,
Juri Linkov <=