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.el

    r4079 r4098  
    501501         (default-regexp (eval ediff-default-filtering-regexp)) 
    502502         f) 
    503      (list (setq f (ediff-read-file-name "Directory A to compare:" dir-A nil)) 
    504            (ediff-read-file-name "Directory B to compare:" 
    505                                  (if ediff-use-last-dir 
    506                                      ediff-last-dir-B 
    507                                    (ediff-strip-last-dir f)) 
    508                                  nil) 
     503     (list (setq f (read-directory-name 
     504                    "Directory A to compare:" dir-A nil 'must-match)) 
     505           (read-directory-name "Directory B to compare:" 
     506                           (if ediff-use-last-dir 
     507                               ediff-last-dir-B 
     508                             (ediff-strip-last-dir f)) 
     509                           nil 'must-match) 
    509510           (read-string 
    510511            (if (stringp default-regexp) 
    …… 
    533534         (default-regexp (eval ediff-default-filtering-regexp)) 
    534535         ) 
    535      (list (ediff-read-file-name 
    536             "Directory to compare with revision:" dir-A nil) 
     536     (list (read-directory-name 
     537            "Directory to compare with revision:" dir-A nil 'must-match) 
    537538           (read-string 
    538539            (if (stringp default-regexp) 
    …… 
    562563         (default-regexp (eval ediff-default-filtering-regexp)) 
    563564         f) 
    564      (list (setq f (ediff-read-file-name "Directory A to compare:" dir-A nil)) 
    565            (setq f (ediff-read-file-name "Directory B to compare:" 
    566                                         (if ediff-use-last-dir 
    567                                             ediff-last-dir-B 
    568                                           (ediff-strip-last-dir f)) 
    569                                         nil)) 
    570            (ediff-read-file-name "Directory C to compare:" 
    571                                 (if ediff-use-last-dir 
    572                                     ediff-last-dir-C 
    573                                   (ediff-strip-last-dir f)) 
    574                                 nil) 
     565     (list (setq f (read-directory-name "Directory A to compare:" dir-A nil)) 
     566           (setq f (read-directory-name "Directory B to compare:" 
     567                                  (if ediff-use-last-dir 
     568                                       ediff-last-dir-B 
     569                                     (ediff-strip-last-dir f)) 
     570                                   nil 'must-match)) 
     571           (read-directory-name "Directory C to compare:" 
     572                          (if ediff-use-last-dir 
     573                               ediff-last-dir-C 
     574                             (ediff-strip-last-dir f)) 
     575                           nil 'must-match) 
    575576           (read-string 
    576577            (if (stringp default-regexp) 
    …… 
    598599         (default-regexp (eval ediff-default-filtering-regexp)) 
    599600         f) 
    600      (list (setq f (ediff-read-file-name "Directory A to merge:" dir-A nil)) 
    601            (ediff-read-file-name "Directory B to merge:" 
    602                                  (if ediff-use-last-dir 
    603                                      ediff-last-dir-B 
    604                                    (ediff-strip-last-dir f)) 
    605                                  nil) 
     601     (list (setq f (read-directory-name "Directory A to merge:" 
     602                                        dir-A nil 'must-match)) 
     603           (read-directory-name "Directory B to merge:" 
     604                           (if ediff-use-last-dir 
     605                               ediff-last-dir-B 
     606                             (ediff-strip-last-dir f)) 
     607                           nil 'must-match) 
    606608           (read-string 
    607609            (if (stringp default-regexp) 
    …… 
    634636         (default-regexp (eval ediff-default-filtering-regexp)) 
    635637         f) 
    636      (list (setq f (ediff-read-file-name "Directory A to merge:" dir-A nil)) 
    637            (setq f (ediff-read-file-name "Directory B to merge:" 
     638     (list (setq f (read-directory-name "Directory A to merge:" dir-A nil)) 
     639           (setq f (read-directory-name "Directory B to merge:" 
    638640                                 (if ediff-use-last-dir 
    639641                                     ediff-last-dir-B 
    640642                                   (ediff-strip-last-dir f)) 
    641                                  nil)) 
    642            (ediff-read-file-name "Ancestor directory:" 
     643                                 nil 'must-match)) 
     644           (read-directory-name "Ancestor directory:" 
    643645                                 (if ediff-use-last-dir 
    644646                                     ediff-last-dir-C 
    645647                                   (ediff-strip-last-dir f)) 
    646                                  nil) 
     648                                 nil 'must-match) 
    647649           (read-string 
    648650            (if (stringp default-regexp) 
    …… 
    670672         (default-regexp (eval ediff-default-filtering-regexp)) 
    671673         ) 
    672      (list (ediff-read-file-name 
    673             "Directory to merge with revisions:" dir-A nil) 
     674     (list (read-directory-name 
     675            "Directory to merge with revisions:" dir-A nil 'must-match) 
    674676           (read-string 
    675677            (if (stringp default-regexp) 
    …… 
    700702         (default-regexp (eval ediff-default-filtering-regexp)) 
    701703         ) 
    702      (list (ediff-read-file-name 
    703             "Directory to merge with revisions and ancestors:" dir-A nil) 
     704     (list (read-directory-name 
     705            "Directory to merge with revisions and ancestors:" 
     706            dir-A nil 'must-match) 
    704707           (read-string 
    705708            (if (stringp default-regexp) 
    …… 
    734737                                        &optional startup-hooks 
    735738                                        merge-autostore-dir) 
    736   ;; ediff-read-file-name is set to attach a previously entered file name if 
    737   ;; the currently entered file is a directory.  This code takes care of that. 
    738   (setq dir1 (if (file-directory-p dir1) dir1 (file-name-directory dir1)) 
    739         dir2 (if (file-directory-p dir2) dir2 (file-name-directory dir2))) 
    740  
    741739  (if (stringp dir3) 
    742740      (setq dir3 (if (file-directory-p dir3) dir3 (file-name-directory dir3)))) 
    …… 
    764762             (not merge-autostore-dir)) 
    765763        (setq merge-autostore-dir 
    766               (read-file-name "Save merged files in directory: " 
     764              (read-directory-name "Save merged files in directory: " 
    767765                              (if ediff-use-last-dir 
    768766                                        ediff-last-merge-autostore-dir 
    …… 
    824822             (not merge-autostore-dir)) 
    825823        (setq merge-autostore-dir 
    826               (read-file-name "Save merged files in directory: " 
     824              (read-directory-name "Save merged files in directory: " 
    827825                              (if ediff-use-last-dir 
    828826                                  ediff-last-merge-autostore-dir