2219 |
regexp-A |
regexp-A |
2220 |
(read-string |
(read-string |
2221 |
(format |
(format |
2222 |
"Ignore A-regions matching this regexp (default \"%s\"): " |
"Ignore A-regions matching this regexp (default %s): " |
2223 |
ediff-regexp-hide-A)) |
ediff-regexp-hide-A)) |
2224 |
regexp-B |
regexp-B |
2225 |
(read-string |
(read-string |
2226 |
(format |
(format |
2227 |
"Ignore B-regions matching this regexp (default \"%s\"): " |
"Ignore B-regions matching this regexp (default %s): " |
2228 |
ediff-regexp-hide-B))) |
ediff-regexp-hide-B))) |
2229 |
(if ediff-3way-comparison-job |
(if ediff-3way-comparison-job |
2230 |
(setq regexp-C |
(setq regexp-C |
2231 |
(read-string |
(read-string |
2232 |
(format |
(format |
2233 |
"Ignore C-regions matching this regexp (default \"%s\"): " |
"Ignore C-regions matching this regexp (default %s): " |
2234 |
ediff-regexp-hide-C)))) |
ediff-regexp-hide-C)))) |
2235 |
(if (eq ediff-hide-regexp-connective 'and) |
(if (eq ediff-hide-regexp-connective 'and) |
2236 |
(setq msg-connective "BOTH" |
(setq msg-connective "BOTH" |
2258 |
regexp-A |
regexp-A |
2259 |
(read-string |
(read-string |
2260 |
(format |
(format |
2261 |
"Focus on A-regions matching this regexp (default \"%s\"): " |
"Focus on A-regions matching this regexp (default %s): " |
2262 |
ediff-regexp-focus-A)) |
ediff-regexp-focus-A)) |
2263 |
regexp-B |
regexp-B |
2264 |
(read-string |
(read-string |
2265 |
(format |
(format |
2266 |
"Focus on B-regions matching this regexp (default \"%s\"): " |
"Focus on B-regions matching this regexp (default %s): " |
2267 |
ediff-regexp-focus-B))) |
ediff-regexp-focus-B))) |
2268 |
(if ediff-3way-comparison-job |
(if ediff-3way-comparison-job |
2269 |
(setq regexp-C |
(setq regexp-C |
2270 |
(read-string |
(read-string |
2271 |
(format |
(format |
2272 |
"Focus on C-regions matching this regexp (default \"%s\"): " |
"Focus on C-regions matching this regexp (default %s): " |
2273 |
ediff-regexp-focus-C)))) |
ediff-regexp-focus-C)))) |
2274 |
(if (eq ediff-focus-regexp-connective 'and) |
(if (eq ediff-focus-regexp-connective 'and) |
2275 |
(setq msg-connective "BOTH" |
(setq msg-connective "BOTH" |