[Emacs-diffs] Changes to emacs/lisp/ediff.el [lexbind]

[Miles Bader]

Index: emacs/lisp/ediff.el
diff -c emacs/lisp/ediff.el:1.57.2.1 emacs/lisp/ediff.el:1.57.2.2
*** emacs/lisp/ediff.el:1.57.2.1        Fri Apr  4 01:20:04 2003
--- emacs/lisp/ediff.el Tue Oct 14 19:50:59 2003
***************
*** 7,13 ****
  ;; Keywords: comparing, merging, patching, tools, unix
  
  (defconst ediff-version "2.78" "The current version of Ediff")
! (defconst ediff-date "January 25, 2003" "Date of last update")
  
  
  ;; This file is part of GNU Emacs.
--- 7,13 ----
  ;; Keywords: comparing, merging, patching, tools, unix
  
  (defconst ediff-version "2.78" "The current version of Ediff")
! (defconst ediff-date "May 18, 2003" "Date of last update")  
  
  
  ;; This file is part of GNU Emacs.
***************
*** 501,506 ****
--- 501,507 ----
  expression; only file names that match the regexp are considered."
    (interactive
     (let ((dir-A (ediff-get-default-directory-name))
+        (default-regexp (eval ediff-default-filtering-regexp))
         f)
       (list (setq f (ediff-read-file-name "Directory A to compare:" dir-A nil))
           (ediff-read-file-name "Directory B to compare:"
***************
*** 508,515 ****
                                     ediff-last-dir-B
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directories-internal
     dir1 dir2 nil regexp 'ediff-files 'ediff-directories
--- 509,522 ----
                                     ediff-last-dir-B
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directories-internal
     dir1 dir2 nil regexp 'ediff-files 'ediff-directories
***************
*** 525,535 ****
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name)))
       (list (ediff-read-file-name
            "Directory to compare with revision:" dir-A nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-revision 'ediff-directory-revisions
--- 532,550 ----
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name))
!        (default-regexp (eval ediff-default-filtering-regexp))
!        )
       (list (ediff-read-file-name
            "Directory to compare with revision:" dir-A nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-revision 'ediff-directory-revisions
***************
*** 547,552 ****
--- 562,568 ----
  
    (interactive
     (let ((dir-A (ediff-get-default-directory-name))
+        (default-regexp (eval ediff-default-filtering-regexp))
         f)
       (list (setq f (ediff-read-file-name "Directory A to compare:" dir-A nil))
           (setq f (ediff-read-file-name "Directory B to compare:"
***************
*** 559,566 ****
                                     ediff-last-dir-C
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directories-internal
     dir1 dir2 dir3 regexp 'ediff-files3 'ediff-directories3
--- 575,588 ----
                                     ediff-last-dir-C
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directories-internal
     dir1 dir2 dir3 regexp 'ediff-files3 'ediff-directories3
***************
*** 576,581 ****
--- 598,604 ----
  expression; only file names that match the regexp are considered."
    (interactive
     (let ((dir-A (ediff-get-default-directory-name))
+        (default-regexp (eval ediff-default-filtering-regexp))
         f)
       (list (setq f (ediff-read-file-name "Directory A to merge:" dir-A nil))
           (ediff-read-file-name "Directory B to merge:"
***************
*** 583,590 ****
                                     ediff-last-dir-B
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directories-internal
     dir1 dir2 nil regexp 'ediff-merge-files 'ediff-merge-directories
--- 606,619 ----
                                     ediff-last-dir-B
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directories-internal
     dir1 dir2 nil regexp 'ediff-merge-files 'ediff-merge-directories
***************
*** 605,610 ****
--- 634,640 ----
  only file names that match the regexp are considered."
    (interactive
     (let ((dir-A (ediff-get-default-directory-name))
+        (default-regexp (eval ediff-default-filtering-regexp))
         f)
       (list (setq f (ediff-read-file-name "Directory A to merge:" dir-A nil))
           (setq f (ediff-read-file-name "Directory B to merge:"
***************
*** 617,624 ****
                                     ediff-last-dir-C
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directories-internal
     dir1 dir2 ancestor-dir regexp
--- 647,660 ----
                                     ediff-last-dir-C
                                   (ediff-strip-last-dir f))
                                 nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directories-internal
     dir1 dir2 ancestor-dir regexp
***************
*** 633,643 ****
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name)))
       (list (ediff-read-file-name
            "Directory to merge with revisions:" dir-A nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-merge-revisions 'ediff-merge-directory-revisions
--- 669,687 ----
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name))
!        (default-regexp (eval ediff-default-filtering-regexp))
!        )
       (list (ediff-read-file-name
            "Directory to merge with revisions:" dir-A nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-merge-revisions 'ediff-merge-directory-revisions
***************
*** 655,665 ****
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name)))
       (list (ediff-read-file-name
            "Directory to merge with revisions and ancestors:" dir-A nil)
!          (read-string "Filter through regular expression: "
!                       nil 'ediff-filtering-regexp-history)
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-merge-revisions-with-ancestor
--- 699,717 ----
  The second argument, REGEXP, is a regular expression that filters the file
  names.  Only the files that are under revision control are taken into 
account."
    (interactive
!    (let ((dir-A (ediff-get-default-directory-name))
!        (default-regexp (eval ediff-default-filtering-regexp))
!        )
       (list (ediff-read-file-name
            "Directory to merge with revisions and ancestors:" dir-A nil)
!          (read-string
!           (if (stringp default-regexp)
!               (format "Filter through regular expression (default %s): "
!                        default-regexp)
!             "Filter through regular expression: ")
!           nil
!           'ediff-filtering-regexp-history
!           (eval ediff-default-filtering-regexp))
           )))
    (ediff-directory-revisions-internal
     dir1 regexp 'ediff-merge-revisions-with-ancestor
***************
*** 1434,1437 ****
--- 1486,1490 ----
  
  (run-hooks 'ediff-load-hook)
  
+ ;;; arch-tag: 97c71396-db02-4f41-8b48-6a51c3348fcc
  ;;; ediff.el ends here