3173 |
(setq f (concat ediff-temp-file-prefix p) |
(setq f (concat ediff-temp-file-prefix p) |
3174 |
short-f (concat ediff-temp-file-prefix short-p) |
short-f (concat ediff-temp-file-prefix short-p) |
3175 |
f (cond (given-file) |
f (cond (given-file) |
3176 |
((find-file-name-handler f 'find-file-noselect) |
((find-file-name-handler f 'insert-file-contents) |
3177 |
;; to thwart file handlers in write-region, e.g., if file |
;; to thwart file handlers in write-region, e.g., if file |
3178 |
;; name ends with .Z or .gz |
;; name ends with .Z or .gz |
3179 |
;; This is needed so that patches produced by ediff will |
;; This is needed so that patches produced by ediff will |