Changeset 3894 for trunk/lisp/ediff-util.el
- Timestamp:
- 10/02/05 09:47:43 (3 years ago)
- Files:
-
- trunk/lisp/ediff-util.el (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/ediff-util.el
r3809 r3894 368 368 (save-excursion 369 369 (set-buffer buffer-C) 370 (insert-buffer buf)370 (insert-buffer-substring buf) 371 371 (funcall (ediff-with-current-buffer buf major-mode)) 372 372 (widen) ; merge buffer is always widened … … 2076 2076 ;; Make sure that the message about saving and how to restore is seen 2077 2077 ;; by the user 2078 (message messg))2078 (message "%s" messg)) 2079 2079 )) 2080 2080 … … 2112 2112 (if (yes-or-no-p 2113 2113 (format 2114 "You've previously copied diff region %d to buffer %S. Confirm "2114 "You've previously copied diff region %d to buffer %S. Confirm? " 2115 2115 (1+ n) buf-type)) 2116 2116 t … … 2220 2220 (read-string 2221 2221 (format 2222 "Ignore A-regions matching this regexp (default \"%s\"): "2222 "Ignore A-regions matching this regexp (default %s): " 2223 2223 ediff-regexp-hide-A)) 2224 2224 regexp-B 2225 2225 (read-string 2226 2226 (format 2227 "Ignore B-regions matching this regexp (default \"%s\"): "2227 "Ignore B-regions matching this regexp (default %s): " 2228 2228 ediff-regexp-hide-B))) 2229 2229 (if ediff-3way-comparison-job … … 2231 2231 (read-string 2232 2232 (format 2233 "Ignore C-regions matching this regexp (default \"%s\"): "2233 "Ignore C-regions matching this regexp (default %s): " 2234 2234 ediff-regexp-hide-C)))) 2235 2235 (if (eq ediff-hide-regexp-connective 'and) … … 2259 2259 (read-string 2260 2260 (format 2261 "Focus on A-regions matching this regexp (default \"%s\"): "2261 "Focus on A-regions matching this regexp (default %s): " 2262 2262 ediff-regexp-focus-A)) 2263 2263 regexp-B 2264 2264 (read-string 2265 2265 (format 2266 "Focus on B-regions matching this regexp (default \"%s\"): "2266 "Focus on B-regions matching this regexp (default %s): " 2267 2267 ediff-regexp-focus-B))) 2268 2268 (if ediff-3way-comparison-job … … 2270 2270 (read-string 2271 2271 (format 2272 "Focus on C-regions matching this regexp (default \"%s\"): "2272 "Focus on C-regions matching this regexp (default %s): " 2273 2273 ediff-regexp-focus-C)))) 2274 2274 (if (eq ediff-focus-regexp-connective 'and) … … 2721 2721 file))) 2722 2722 (beep) 2723 (message warn-message)2723 (message "%s" warn-message) 2724 2724 (with-output-to-temp-buffer ediff-msg-buffer 2725 2725 (princ "\n\n") … … 3287 3287 (princ "\n\n")) 3288 3288 (if (y-or-n-p 3289 (message warn-message))3289 (message "%s" warn-message)) 3290 3290 (with-current-buffer buff 3291 3291 (save-buffer)
