From c9c8d98446f7cd4c9e0eb7394c7f9039965932c7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 9 Dec 2020 13:50:06 +0100 Subject: [PATCH] Make ediff offer to create files it's inferring * lisp/vc/ediff-ptch.el (ediff-fixup-patch-map): Offer to create the inferred file name (if it doesn't exist) (bug#8009). This allows applying a patch that creates a file. --- lisp/vc/ediff-ptch.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/vc/ediff-ptch.el b/lisp/vc/ediff-ptch.el index 08640fcece9..580d48880bd 100644 --- a/lisp/vc/ediff-ptch.el +++ b/lisp/vc/ediff-ptch.el @@ -465,6 +465,9 @@ are two possible targets for this %spatch. However, these files do not exist." file1 file2 (if multi-patch-p "multi-" "")))) (princ " \nPlease enter an alternative patch target ...\n")) + (when (and (string= file1 file2) + (y-or-n-p (format "Create %s?" file1))) + (write-region (point-min) (point-min) file1)) (let ((directory t) target) (while directory -- 2.39.2