Mercurial > emacs
diff lisp/ediff-init.el @ 34860:fdb5d08ced13
2000-12-25 Michael Kifer <kifer@cs.sunysb.edu>
* ediff-init.el (ediff-quit-hook,ediff-suspend-hook): changed
initialization; use add-hook.
(ediff-file-remote-p): use file-local-copy.
* ediff-ptch.el (ediff-prompt-for-patch-buffer): improved defaults.
* ediff.el (ediff-patch-buffer): bug fix.
(ediff-revision): allow selection of the file at the prompt.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Mon, 25 Dec 2000 07:57:37 +0000 |
parents | f6a67d77484a |
children | ee8a7170097b |
line wrap: on
line diff
--- a/lisp/ediff-init.el Sun Dec 24 16:13:31 2000 +0000 +++ b/lisp/ediff-init.el Mon Dec 25 07:57:37 2000 +0000 @@ -443,11 +443,11 @@ :type 'hook :group 'ediff-hook) -(defcustom ediff-suspend-hook (list 'ediff-default-suspend-function) +(defcustom ediff-suspend-hook nil "*Hooks to run in the Ediff control buffer when Ediff is suspended." :type 'hook :group 'ediff-hook) -(defcustom ediff-quit-hook (list 'ediff-cleanup-mess) +(defcustom ediff-quit-hook nil "*Hooks to run in the Ediff control buffer after finishing Ediff." :type 'hook :group 'ediff-hook) @@ -1152,6 +1152,9 @@ (put 'ediff-fine-diff-face-Ancestor 'ediff-help-echo "A `refinement' of the current difference region") +(add-hook 'ediff-quit-hook 'ediff-cleanup-mess) +(add-hook 'ediff-suspend-hook 'ediff-default-suspend-function) + ;;; Overlays @@ -1273,11 +1276,12 @@ (or (fboundp 'ediff-file-remote-p) ; user supplied his own function: use it (defun ediff-file-remote-p (file-name) - (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)))))) + (find-file-name-handler file-name 'file-local-copy))) +;;; (or (and (featurep 'efs-auto) (efs-ftp-path file-name)) +;;; (and (featurep 'tramp) (tramp-tramp-file-p file-name)) +;;; (and (fboundp 'file-remote-p) (file-remote-p file-name)) +;;; ;; Can happen only in Emacs, since XEmacs has file-remote-p +;;; (and (require 'ange-ftp) (ange-ftp-ftp-name file-name))))) (defsubst ediff-frame-unsplittable-p (frame)