Show
Ignore:
Timestamp:
07/01/06 08:27:06 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ediff-vers.el

    r4058 r4098  
    5252         ))) 
    5353;; end pacifier 
     54 
     55(defcustom ediff-keep-tmp-versions nil 
     56  "*If t, do not delete temporary previous versions for the files on which 
     57comparison or merge operations are being performed." 
     58  :type 'boolean 
     59  :group 'ediff-vers 
     60  ) 
    5461 
    5562;; VC.el support 
    …… 
    8895      (setq startup-hooks 
    8996            (cons `(lambda () 
    90                      (delete-file ,file1) 
    91                      (or ,(string= rev2 "") (delete-file ,file2))) 
     97                     (ediff-delete-version-file ,file1) 
     98                     (or ,(string= rev2 "") (ediff-delete-version-file ,file2))) 
    9299                  startup-hooks))) 
    93100    (ediff-buffers 
    …… 
    200207            (cons 
    201208             `(lambda () 
    202                 (delete-file ,(buffer-file-name buf1)) 
     209                (ediff-delete-version-file ,(buffer-file-name buf1)) 
    203210                (or ,(string= rev2 "") 
    204                     (delete-file ,(buffer-file-name buf2))) 
     211                    (ediff-delete-version-file ,(buffer-file-name buf2))) 
    205212                (or ,(string= ancestor-rev "") 
    206213                    ,(not ancestor-rev) 
    207                     (delete-file ,(buffer-file-name ancestor-buf))) 
     214                    (ediff-delete-version-file ,(buffer-file-name ancestor-buf))) 
    208215                ) 
    209216             startup-hooks))) 
    …… 
    306313            nil ; startup-hooks 
    307314            'ediff-revisions))) 
    308     (if (stringp tmp-file) (delete-file tmp-file)) 
    309     (if (stringp ancestor-file) (delete-file ancestor-file)))) 
     315    (if (stringp tmp-file) (ediff-delete-version-file tmp-file)) 
     316    (if (stringp ancestor-file) (ediff-delete-version-file ancestor-file)))) 
     317 
     318 
     319;; delete version file on exit unless ediff-keep-tmp-versions is true 
     320(defun ediff-delete-version-file (file) 
     321  (or ediff-keep-tmp-versions (delete-file file))) 
    310322 
    311323