Mercurial > hg > xemacs-beta

comparison lisp/ediff/ediff-init.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1154 (ediff-defvar-local ediff-temp-file-C nil 1154 (ediff-defvar-local ediff-temp-file-C nil
1155 "Temporary file used for refining difference regions in buffer C.") 1155 "Temporary file used for refining difference regions in buffer C.")
1156 1156
1157 ;;; In-line functions 1157 ;;; In-line functions
1158 1158
1159 (or (fboundp 'ediff-file-remote-p) ; user supplied his own function 1159 (or (fboundp 'ediff-file-remote-p) ; user supplied his own function: use it
1160 (defun ediff-file-remote-p (file-name) 1160 (defun ediff-file-remote-p (file-name)
1161 (car (cond ((featurep 'efs) (efs-ftp-path file-name)) 1161 (car (cond ((featurep 'efs-auto) (efs-ftp-path file-name))
1162 ((fboundp 'file-remote-p) (efs-ftp-path file-name)) 1162 ((fboundp 'file-remote-p) (file-remote-p file-name))
1163 (t (require 'ange-ftp) 1163 (t (require 'ange-ftp)
1164 ;; Can happen only in Emacs, since XEmacs has file-remote-p 1164 ;; Can happen only in Emacs, since XEmacs has file-remote-p
1165 (ange-ftp-ftp-name file-name)))))) 1165 (ange-ftp-ftp-name file-name))))))
1166 1166
1167 1167