Re: problem with latest ediff and clearcase mode?

> I noticed that using the latest Ediff package (from the current SUMO, > in conjunction with 21.1.14) fails to work if clearcase mode has been > loaded. Using the elisp debugger I've traced the problem to changes in > ediff-file-remote-p which now calls: > > (find-file-name-handler file-name 'file-local-copy) > > instead of it's previous method of checking: > > (car (cond ((featurep 'efs-auto) (efs-ftp-path file-name)) > ((fboundp 'file-remote-p) (file-remote-p file-name)) > (t (require 'ange-ftp) > ;; Can happen only in Emacs, since XEmacs has file-remote-p > (ange-ftp-ftp-name file-name)))) > > and the latest clearcase.el available from: > > http://www.ultranet.com/~esler/ccase-mode/ > > sets a find-file-name-handler: <snip> I'm having similar problems with ediff and dired (and I'm _amazed_ that no-one else is seeing this). Specifically, whenever a dired buffer is opened, it installs a handler: (defun dired-check-file-name-handler-alist () ;; Verify that dired is installed as the first item in the alist (and dired-refresh-automatically (or (eq (cdr (car file-name-handler-alist)) 'dired-handler-fn) (setq file-name-handler-alist (cons '("." . dired-handler-fn) (dired-remove-from-file-name-handler-alist)))))) Since the regexp for this handler is ".", it applies to all files. When ediff is operating on non-files, it calls ediff-file-remote-p and aborts if it returns true. ediff-file-remote-p always returns true if a dired buffer is open, because find-file-name-handler always returns 'dired-handler-fn. I just researched this a bit more, and it looks like the problem is that the only thing find-file-name-handler pays attention to for the second parameter is whether it's set to 'inhibit-file-name-operation. What should actually be happening is the following: ;; file-local-copy returns nil if the file is already local (defun ediff-file-remote-p (file-name) (file-local-copy file-name)) The only problem with this is that emacs will then try to access that file remotely if it is indeed a remote file. However, since ediff already uses (ediff-find-file ...) to load remote files, anything getting passed to ediff-file-remote-p should already be local (in which case, why is this even being used?). Just in case, it might be best to do: (defun ediff-file-remote-p (file-name) (let ((tmpfile (file-local-copy file-name))) (if tmpfile (delete-file tmpfile)) tmpfile)) Comments, Michael? Could you make this (or some similar) change to ediff-init.el? --==========1753282363========== Content-Type: application/pgp-signature Content-Transfer-Encoding: 7bit --==========1753282363==========--