mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(find-file-literally-at-point): Alias of `ffap-literally'.
This commit is contained in:
Juri Linkov 2009-11-12 10:41:50 +00:00
parent 6d341a2a09
commit e2685eb734
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

16
lisp/ffap.el
View file

@ -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: