From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Sean Whitton Newsgroups: gmane.emacs.bugs Subject: bug#73407: 31.0.50; Add diff-discard-hunk Date: Tue, 24 Sep 2024 09:42:49 +0100 Message-ID: <87setpmohi.fsf@zephyr.silentflame.com> References: <87jzf58g2t.fsf@zephyr.silentflame.com> <865xqleexg.fsf@mail.linkov.net> <87y13hmold.fsf@zephyr.silentflame.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="16498"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: 73407@debbugs.gnu.org To: Juri Linkov , dgutov@yandex.ru Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Sep 24 10:43:49 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1st197-00041E-7E for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 24 Sep 2024 10:43:45 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1st191-0006ZP-Bh; Tue, 24 Sep 2024 04:43:39 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1st190-0006Z2-4B for bug-gnu-emacs@gnu.org; Tue, 24 Sep 2024 04:43:38 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1st18z-0003Ki-QS for bug-gnu-emacs@gnu.org; Tue, 24 Sep 2024 04:43:37 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:References:In-Reply-To:From:To:Subject; bh=g2BakvP4WE83OjMXHZZ/uBSla0HJ/Cqw1PvNMlom+0A=; b=eirRCMwyb+3xWd07sMxX4rbRqDr7+CMBLDLf1r0kuq4+XiZ42mUsIAp0CZuqED+/IE/2XHj5oOX9TMqnryV3kq17bK2MudoFHOvf0gqLhRg1Wq+5uHWYdZuJshpaLPrXzMJiuxFGZo6FtK4kh55ZFruAMzkZ0KT1cP0hetX6mGbPSnV1bICwP3lC6S1hP3RvyV41ng6YdjLX5vFB5aEfEj4GryLn2UlBYLM1Aw85jh8MquVG4DCSb2cRufajG6PyOG4cHl9xipu+vPPH0guJfyMXzpts9EgFXDZr+xgtYM/5Tir/bo0Awl9Wjqcv5TPLdA/SnFXIEKBjn1qGyHwuSg==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1st19N-0002Pn-RO for bug-gnu-emacs@gnu.org; Tue, 24 Sep 2024 04:44:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Sean Whitton Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 24 Sep 2024 08:44:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73407 X-GNU-PR-Package: emacs Original-Received: via spool by 73407-submit@debbugs.gnu.org id=B73407.17271674029217 (code B ref 73407); Tue, 24 Sep 2024 08:44:01 +0000 Original-Received: (at 73407) by debbugs.gnu.org; 24 Sep 2024 08:43:22 +0000 Original-Received: from localhost ([127.0.0.1]:45258 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1st18j-0002Oa-Sy for submit@debbugs.gnu.org; Tue, 24 Sep 2024 04:43:22 -0400 Original-Received: from sendmail.purelymail.com ([34.202.193.197]:57528) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1st18i-0002OL-1Q for 73407@debbugs.gnu.org; Tue, 24 Sep 2024 04:43:20 -0400 DKIM-Signature: a=rsa-sha256; b=C4OnseD1hmvHBojQ9hkxN2H/yfa1uY8IlJXakZpuQVx2yvvECtPfRZgYtBNSFyfq9UlMH2v/XUJ68XSi3QEaqpJC840S7bUsYExw1pkEjNSzH9VYmHKR6M8N2vpSPnxKnTsixOwIUahMfFV3bOF4trZMvaXk9kJ4DscOcC0PvcvZvgAQ57bSOZMfUa4fezZig0q8ClkRme1t2XTYwacNcGBOW+JAzraNRq50TpzUjfiIuSBOLxc0M56ZE1lEzn5X5YsSZLdyGPPY9GrU3571Lw9j3Inf/K0jzUkiekb61YHGMMQXNW6sif3aGm6t5accwpTcowCTHiFZbf+JAkhHLA==; s=purelymail1; d=spwhitton.name; v=1; bh=ctUEIRH9TGPYqqwxzy5GJMJwROIYjjlVxyPXs6QFTjw=; h=Received:Received:From:To:Subject:Date; DKIM-Signature: a=rsa-sha256; b=gCEDZ3jI+l0b3twvHqe8zATnLDnGwfUyrj5WatpB6KL7x4QqRD5/UBCSjmkzq3WcC+6SxvxdWR/RXLGGcdZJ7/wA3OPbblNEhX9l6CgAdHAO54QW5aynz/dWVw03/tca8xk7u8BqlksEONuVHFsQyh8AR59h9I0enBeBVDAdlFDmTVbb+Vm2EIXXBYuF6g1jHCljdlL0Use2ABhhsq2j3meaET7j5wcToZVhy1eltXH/Ghk9CM3dtKPfHKKRVIUXW/ZAKH/XQcJ0X4hzpBhGjSF4LSifVn0uvsHldaDIDevUv/6dFWESFaQU/IXIGovxxpMRDLkh6bvNFf80i+D9bg==; s=purelymail1; d=purelymail.com; v=1; bh=ctUEIRH9TGPYqqwxzy5GJMJwROIYjjlVxyPXs6QFTjw=; h=Feedback-ID:Received:Received:From:To:Subject:Date; Feedback-ID: 20115:3760:null:purelymail X-Pm-Original-To: 73407@debbugs.gnu.org Original-Received: by smtp.purelymail.com (Purelymail SMTP) with ESMTPSA id 494278201; (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Tue, 24 Sep 2024 08:42:50 +0000 (UTC) Original-Received: by zephyr.silentflame.com (Postfix, from userid 1000) id 4218394194D; Tue, 24 Sep 2024 09:42:49 +0100 (BST) In-Reply-To: <87y13hmold.fsf@zephyr.silentflame.com> (Sean Whitton's message of "Tue, 24 Sep 2024 09:40:30 +0100") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:292314 Archived-At: --=-=-= Content-Type: text/plain Hello, On Tue 24 Sep 2024 at 09:40am +01, Sean Whitton wrote: > Hello, > > Thank you both for looking. Here is a revised patch based on Juri's > ideas about implementation, and also adding a y/n confirmation, since > this operation is destructive. > > Let me know what you think! I missed updating something in the info; here is v3. -- Sean Whitton --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=v3-0001-New-command-diff-discard-hunk.patch >From a384ea810d388dfb685a3694e851457bb5e668dd Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 24 Sep 2024 09:38:43 +0100 Subject: [PATCH v3] New command diff-discard-hunk * lisp/vc/diff-mode.el (diff-discard-hunk): New command (bug#73407). (diff-apply-buffer): New optional BEG and END arguments. Return nil if buffers were saved, or the number of failed applications. (diff-mode-map): Bind diff-discard-hunk to C-c C-k. (diff-mode-menu): New entry "Discard hunk". * doc/emacs/files.texi (Diff Mode): * etc/NEWS: Document the new command. --- doc/emacs/files.texi | 10 ++++++++++ etc/NEWS | 5 +++++ lisp/vc/diff-mode.el | 40 +++++++++++++++++++++++++++++++++++----- 3 files changed, 50 insertions(+), 5 deletions(-) diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi index 709cb0910e6..78d90a914aa 100644 --- a/doc/emacs/files.texi +++ b/doc/emacs/files.texi @@ -1682,6 +1682,16 @@ Diff Mode version. If @code{diff-jump-to-old-file} is non-@code{nil}, apply the hunk to the ``old'' version of the file instead. +@findex diff-discard-hunk +@item C-c C-k +Reverse-apply this hunk to the target file, and then kill it +(@code{diff-discard-hunk}). Save the buffer visiting the target file. + +This command is useful in buffers generated by @w{@kbd{C-x v =}} and +@w{@kbd{C-x v D}} (@pxref{Old Revisions}). You can use this command to +remove hunks you never intend to commit, such as temporary debug prints, +and the like. + @findex diff-apply-buffer @item C-c @key{RET} a Apply all the hunks in the buffer (@code{diff-apply-buffer}). If the diff --git a/etc/NEWS b/etc/NEWS index c1a0524c8ba..3edd827d15c 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -341,6 +341,11 @@ according to diffs in the current buffer, but without applying the diffs to the original text. If the selected range extends a hunk, the command attempts to look up and copy the text in-between the hunks. ++++ +*** New command 'diff-discard-hunk' bound to C-c C-k. +This command reverse-applies the hunk at point, and then kills it. +This is useful in buffers generated C-x v = and C-x v D. + ** php-ts-mode --- diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 4810b9ce01c..a48ba8e717a 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el @@ -218,6 +218,7 @@ diff-mode-map "C-x 4 A" #'diff-add-change-log-entries-other-window ;; Misc operations. "C-c C-a" #'diff-apply-hunk + "C-c C-k" #'diff-discard-hunk "C-c C-m a" #'diff-apply-buffer "C-c C-e" #'diff-ediff-patch "C-c C-n" #'diff-restrict-view @@ -242,6 +243,8 @@ diff-mode-menu :help "Apply the current hunk to the source file and go to the next"] ["Test applying hunk" diff-test-hunk :help "See whether it's possible to apply the current hunk"] + ["Discard hunk" diff-discard-hunk + :help "Reverse-apply and then kill the current hunk."] ["Apply all hunks" diff-apply-buffer :help "Apply all hunks in the current diff buffer"] ["Apply diff with Ediff" diff-ediff-patch @@ -2050,15 +2053,39 @@ diff-kill-applied-hunks (diff-hunk-kill) (diff-hunk-next))))) -(defun diff-apply-buffer () +(defun diff-discard-hunk () + "Reverse-apply and then kill the hunk at point. Save changed buffer. + +This command is useful in buffers generated by \\[vc-diff] and \\[vc-root-diff]. +You can use `diff-hunk-kill' to remove hunks you intend to commit later. +You can use this command to remove hunks you never intend to commit, +such as temporary debug prints, and the like." + (interactive) + (when (yes-or-no-p "Discard this hunk?") + (cl-destructuring-bind (beg end) (diff-bounds-of-hunk) + (diff-reverse-direction beg end) + (condition-case ret + (diff-apply-buffer beg end) + ;; Reversing the hunk is an implementation detail, so ensure the + ;; user never sees it. + (error (diff-reverse-direction beg end) + (signal (car ret) (cdr ret))) + (:success (if ret + (diff-reverse-direction beg end) + (diff-hunk-kill))))))) + +(defun diff-apply-buffer (&optional beg end) "Apply the diff in the entire diff buffer. -When applying all hunks was successful, then save the changed buffers." +When applying all hunks was successful, then save the changed buffers. +When called from Lisp with optional arguments, restrict the application +to hunks lying between BEG and END. Returns nil if buffers were saved, +or the number of failed applications." (interactive) (let ((buffer-edits nil) (failures 0) (diff-refine nil)) (save-excursion - (goto-char (point-min)) + (goto-char (or beg (point-min))) (diff-beginning-of-hunk t) (while (pcase-let ((`(,buf ,line-offset ,pos ,_src ,dst ,switched) (diff-find-source-location nil nil))) @@ -2068,6 +2095,7 @@ diff-apply-buffer (t (setq failures (1+ failures)))) (and (not (eq (prog1 (point) (ignore-errors (diff-hunk-next))) (point))) + (or (not end) (< (point) end)) (looking-at-p diff-hunk-header-re))))) (cond ((zerop failures) (dolist (buf-edits (reverse buffer-edits)) @@ -2080,9 +2108,11 @@ diff-apply-buffer (delete-region (car pos) (cdr pos)) (insert (car dst)))) (save-buffer))) - (message "Saved %d buffers" (length buffer-edits))) + (message "Saved %d buffers" (length buffer-edits)) + nil) (t - (message "%d hunks failed; no buffers changed" failures))))) + (message "%d hunks failed; no buffers changed" failures) + failures)))) (defalias 'diff-mouse-goto-source #'diff-goto-source) -- 2.39.5 --=-=-=--