comparison lisp/ediff-util.el @ 26039:fb6b9c37cdc4

Use make-temp-file.

26038:2f34f175497c

		  ((find-file-name-handler f 'find-file-noselect)
		   ;; to thwart file handlers in write-region, e.g., if file
		   ;; name ends with .Z or .gz
		   ;; This is needed so that patches produced by ediff will
		   ;; have more meaningful names
		   (make-temp-name short-f))
		  ;; Prefix is most often the same as the file name for the
		  ;; variant. Here we are trying to use the original file name
		  ;; but in the temp directory.
		  ((and prefix (not (file-exists-p f))) f)
		  ;; If a file with the orig name exists, add some random stuff
		  ;; to it.
		  (t (make-temp-name short-f))))
    
    ;; create the file
    (ediff-with-current-buffer buff
      (write-region (if start start (point-min))
		    (if end end (point-max))

26039:fb6b9c37cdc4

		  ((find-file-name-handler f 'find-file-noselect)
		   ;; to thwart file handlers in write-region, e.g., if file
		   ;; name ends with .Z or .gz
		   ;; This is needed so that patches produced by ediff will
		   ;; have more meaningful names
		   (make-temp-file short-f))
		  ;; Prefix is most often the same as the file name for the
		  ;; variant. Here we are trying to use the original file name
		  ;; but in the temp directory.
		  ((and prefix (not (file-exists-p f))) f)
		  ;; If a file with the orig name exists, add some random stuff
		  ;; to it.
		  (t (make-temp-file short-f))))
    
    ;; create the file
    (ediff-with-current-buffer buff
      (write-region (if start start (point-min))
		    (if end end (point-max))