aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDima Kogan2016-11-23 18:04:21 -0800
committerDima Kogan2016-11-23 18:05:35 -0800
commitdfc5b0f65531ef71cbd2c0cc956c246ea4239612 (patch)
treeac3a3f38b082b13bd0f39daa377fbd5b5f25b1d5
parent561ce852ad0a90aac07fd16cd591ca8a408043c3 (diff)
downloademacs-dfc5b0f65531ef71cbd2c0cc956c246ea4239612.tar.gz
emacs-dfc5b0f65531ef71cbd2c0cc956c246ea4239612.zip
Clarify ediff-directories prompt
* lisp/vc/ediff-mult.el (ediff-filegroup-action): * lisp/vc/ediff.el (ediff-directories,ediff-directory-revisions, ediff-directories3, ediff-merge-directories, ediff-merge-directories-with-ancestor, ediff-merge-directory-revisions, ediff-merge-directory-revisions-with-ancestor): Clarify prompt message for filename filter in interactive ediff. The new message makes it clear what is being filtered
-rw-r--r--lisp/vc/ediff-mult.el6
-rw-r--r--lisp/vc/ediff.el28
2 files changed, 17 insertions, 17 deletions
diff --git a/lisp/vc/ediff-mult.el b/lisp/vc/ediff-mult.el
index 7f0db5d45dc..9c7e278e6ab 100644
--- a/lisp/vc/ediff-mult.el
+++ b/lisp/vc/ediff-mult.el
@@ -1846,9 +1846,9 @@ all marked sessions must be active."
1846 (read-string 1846 (read-string
1847 (if (stringp default-regexp) 1847 (if (stringp default-regexp)
1848 (format 1848 (format
1849 "Filter through regular expression (default %s): " 1849 "Filter filenames through regular expression (default %s): "
1850 default-regexp) 1850 default-regexp)
1851 "Filter through regular expression: ") 1851 "Filter filenames through regular expression: ")
1852 nil 1852 nil
1853 'ediff-filtering-regexp-history 1853 'ediff-filtering-regexp-history
1854 (eval ediff-default-filtering-regexp))) 1854 (eval ediff-default-filtering-regexp)))
@@ -1872,7 +1872,7 @@ all marked sessions must be active."
1872 (file-directory-p file1)) 1872 (file-directory-p file1))
1873 (if (ediff-buffer-live-p session-buf) 1873 (if (ediff-buffer-live-p session-buf)
1874 (ediff-show-meta-buffer session-buf) 1874 (ediff-show-meta-buffer session-buf)
1875 (setq regexp (read-string "Filter through regular expression: " 1875 (setq regexp (read-string "Filter filenames through regular expression: "
1876 nil 'ediff-filtering-regexp-history)) 1876 nil 'ediff-filtering-regexp-history))
1877 (ediff-directory-revisions-internal 1877 (ediff-directory-revisions-internal
1878 file1 regexp 1878 file1 regexp
diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el
index a4244c941d2..ed36a3fc8c1 100644
--- a/lisp/vc/ediff.el
+++ b/lisp/vc/ediff.el
@@ -553,9 +553,9 @@ expression; only file names that match the regexp are considered."
553 nil 'must-match) 553 nil 'must-match)
554 (read-string 554 (read-string
555 (if (stringp default-regexp) 555 (if (stringp default-regexp)
556 (format "Filter through regular expression (default %s): " 556 (format "Filter filenames through regular expression (default %s): "
557 default-regexp) 557 default-regexp)
558 "Filter through regular expression: ") 558 "Filter filenames through regular expression: ")
559 nil 559 nil
560 'ediff-filtering-regexp-history 560 'ediff-filtering-regexp-history
561 (eval ediff-default-filtering-regexp)) 561 (eval ediff-default-filtering-regexp))
@@ -581,9 +581,9 @@ names. Only the files that are under revision control are taken into account."
581 "Directory to compare with revision:" dir-A nil 'must-match) 581 "Directory to compare with revision:" dir-A nil 'must-match)
582 (read-string 582 (read-string
583 (if (stringp default-regexp) 583 (if (stringp default-regexp)
584 (format "Filter through regular expression (default %s): " 584 (format "Filter filenames through regular expression (default %s): "
585 default-regexp) 585 default-regexp)
586 "Filter through regular expression: ") 586 "Filter filenames through regular expression: ")
587 nil 587 nil
588 'ediff-filtering-regexp-history 588 'ediff-filtering-regexp-history
589 (eval ediff-default-filtering-regexp)) 589 (eval ediff-default-filtering-regexp))
@@ -619,9 +619,9 @@ regular expression; only file names that match the regexp are considered."
619 nil 'must-match) 619 nil 'must-match)
620 (read-string 620 (read-string
621 (if (stringp default-regexp) 621 (if (stringp default-regexp)
622 (format "Filter through regular expression (default %s): " 622 (format "Filter filenames through regular expression (default %s): "
623 default-regexp) 623 default-regexp)
624 "Filter through regular expression: ") 624 "Filter filenames through regular expression: ")
625 nil 625 nil
626 'ediff-filtering-regexp-history 626 'ediff-filtering-regexp-history
627 (eval ediff-default-filtering-regexp)) 627 (eval ediff-default-filtering-regexp))
@@ -651,9 +651,9 @@ expression; only file names that match the regexp are considered."
651 nil 'must-match) 651 nil 'must-match)
652 (read-string 652 (read-string
653 (if (stringp default-regexp) 653 (if (stringp default-regexp)
654 (format "Filter through regular expression (default %s): " 654 (format "Filter filenames through regular expression (default %s): "
655 default-regexp) 655 default-regexp)
656 "Filter through regular expression: ") 656 "Filter filenames through regular expression: ")
657 nil 657 nil
658 'ediff-filtering-regexp-history 658 'ediff-filtering-regexp-history
659 (eval ediff-default-filtering-regexp)) 659 (eval ediff-default-filtering-regexp))
@@ -692,9 +692,9 @@ only file names that match the regexp are considered."
692 nil 'must-match) 692 nil 'must-match)
693 (read-string 693 (read-string
694 (if (stringp default-regexp) 694 (if (stringp default-regexp)
695 (format "Filter through regular expression (default %s): " 695 (format "Filter filenames through regular expression (default %s): "
696 default-regexp) 696 default-regexp)
697 "Filter through regular expression: ") 697 "Filter filenames through regular expression: ")
698 nil 698 nil
699 'ediff-filtering-regexp-history 699 'ediff-filtering-regexp-history
700 (eval ediff-default-filtering-regexp)) 700 (eval ediff-default-filtering-regexp))
@@ -719,9 +719,9 @@ names. Only the files that are under revision control are taken into account."
719 "Directory to merge with revisions:" dir-A nil 'must-match) 719 "Directory to merge with revisions:" dir-A nil 'must-match)
720 (read-string 720 (read-string
721 (if (stringp default-regexp) 721 (if (stringp default-regexp)
722 (format "Filter through regular expression (default %s): " 722 (format "Filter filenames through regular expression (default %s): "
723 default-regexp) 723 default-regexp)
724 "Filter through regular expression: ") 724 "Filter filenames through regular expression: ")
725 nil 725 nil
726 'ediff-filtering-regexp-history 726 'ediff-filtering-regexp-history
727 (eval ediff-default-filtering-regexp)) 727 (eval ediff-default-filtering-regexp))
@@ -750,9 +750,9 @@ names. Only the files that are under revision control are taken into account."
750 dir-A nil 'must-match) 750 dir-A nil 'must-match)
751 (read-string 751 (read-string
752 (if (stringp default-regexp) 752 (if (stringp default-regexp)
753 (format "Filter through regular expression (default %s): " 753 (format "Filter filenames through regular expression (default %s): "
754 default-regexp) 754 default-regexp)
755 "Filter through regular expression: ") 755 "Filter filenames through regular expression: ")
756 nil 756 nil
757 'ediff-filtering-regexp-history 757 'ediff-filtering-regexp-history
758 (eval ediff-default-filtering-regexp)) 758 (eval ediff-default-filtering-regexp))