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#73387: 30.0.90; C-x v v in diff-mode doesn't work after C-c C-n Date: Mon, 30 Sep 2024 21:25:26 +0800 Message-ID: <87a5fpqnnd.fsf@melete.silentflame.com> References: <87zfo28fzu.fsf@zephyr.silentflame.com> <8d0b046e-4b29-4551-b421-e98e212a7b40@yandex.ru> <86msjxefkv.fsf@mail.linkov.net> <87cykt2gkl.fsf@zephyr.silentflame.com> <87jzf01bsk.fsf@zephyr.silentflame.com> <87y13dfgzz.fsf@melete.silentflame.com> <5e956e3b-5891-401a-a898-e339f52ea307@yandex.ru> <87h69ydnvd.fsf@melete.silentflame.com> <878qv9scps.fsf@melete.silentflame.com> <12b28146-5cbc-48cd-b0e2-0c528d4b9b1c@yandex.ru> <87ikudqocz.fsf@melete.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="20353"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: 73387@debbugs.gnu.org, monnier@iro.umontreal.ca, Juri Linkov To: Dmitry Gutov Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Sep 30 15:28:51 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 1svGSJ-000522-8L for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 30 Sep 2024 15:28:51 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1svGS8-0007NO-1w; Mon, 30 Sep 2024 09:28:40 -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 1svGRy-0006ls-3u for bug-gnu-emacs@gnu.org; Mon, 30 Sep 2024 09:28:32 -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 1svGRx-0001uL-KD for bug-gnu-emacs@gnu.org; Mon, 30 Sep 2024 09:28:29 -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=2mLeGuAdC1QS2MPjm/4EA5p2OnUIZ8bxSB5u+Jocpmg=; b=lMqUYvqKghgYiI2tqACEZGvaR4NUyQMsOKm5t/b/DH0DxwgKQrdX4ONeiS+JzAY02A892ZebbFjDTGoPtxAZ1lvPPz99BTm4WOBrjMfwfcO4gZ+Oe+pjUGFZWb9a0yUSlhGPB5a1mdEBsOyKN7o/zSSACNjUuz6BDB+vJoTrnvUzCkP7kF5Tui9dpOwvYFvRoV/gZm/j/nsKtIz+HlPZQx//QFNafesAQh2XT+dYD8Uk0NKV4mhtUjy0c//PoC6tY/C/g4xEP7n2NsEx4glNCtpwiiHOkpU8y6oZFbbmdL5y1LGfZtzNtvNNbPJwIg0JeiUBH8RQYY/d4U+C6dA8mQ==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1svGSU-0004zz-9a for bug-gnu-emacs@gnu.org; Mon, 30 Sep 2024 09:29:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Sean Whitton Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 30 Sep 2024 13:29:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73387 X-GNU-PR-Package: emacs Original-Received: via spool by 73387-submit@debbugs.gnu.org id=B73387.172770291119202 (code B ref 73387); Mon, 30 Sep 2024 13:29:02 +0000 Original-Received: (at 73387) by debbugs.gnu.org; 30 Sep 2024 13:28:31 +0000 Original-Received: from localhost ([127.0.0.1]:45026 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1svGRz-0004ze-6I for submit@debbugs.gnu.org; Mon, 30 Sep 2024 09:28:31 -0400 Original-Received: from sendmail.purelymail.com ([34.202.193.197]:35700) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1svGRx-0004zU-Ey for 73387@debbugs.gnu.org; Mon, 30 Sep 2024 09:28:30 -0400 DKIM-Signature: a=rsa-sha256; b=oshp5wqBdQT5bETEPy/bVxN1ZPfUCEBSzoC9sQwq4DcjVYsy0gEgHQRQF5r3Jb5pQocezVly4/YQl1BfEKlm0JMERm/+c49uY+GKRbBmo2NXnwgzAcVE2g/8dQnfes0b/170YfqfMrHSxhg3R3/pl+XTddqxPna0h8ekiqJsn5mGtNK8ZwvZVW8aB8AaX2o8b8xPf9NHoJB8WU7rFulETjp11ZXzHC4Am2HA27rUwblsXRcwx+ijK5RYN6nb+so5xNMtmlaZzKHjo3ZtJPkICSV6IGRGp6rvGtCG4bpCuRiSeB+yFrGDLAS4fdRte9dJf+UAjMnf0khfs82QStRaxg==; s=purelymail1; d=spwhitton.name; v=1; bh=3tJzWhXKiNyDx9hqf+PUARIYYwDMo2ybUl3sGgvnP/s=; h=Received:Received:From:To:Subject:Date; DKIM-Signature: a=rsa-sha256; b=kvZkf39eEvRoL6L/zY71d1SZKrXRrnwa2t9TH6GGIvdKQ48lvwpgGAN+QCqprkzRnEVnvc1v47EIqOJewZixL92505n+4sImeeM+BIiZQuHWlMn1yHbTn4EUijrVg1jyJU6X7rUaoojGJMIo/YLdzaR8WoF9Wlnj0e2fIGcMHGAsxV1AyTVcD9Sf/3xdJYqrdW19bvsrZUjbSs/HGtpLRRb7U4MB01XiCiITtHsVMwD2lenoNpdWk1nybOux3XAkfLWpBf9zJ3id9ueqH0iC2mI+/KPg5BC5B+gBRI3vQbtHcEhKFz6Fl6PLfsTNKTw1urd6KP0juQguy5NJ7mrMiA==; s=purelymail1; d=purelymail.com; v=1; bh=3tJzWhXKiNyDx9hqf+PUARIYYwDMo2ybUl3sGgvnP/s=; h=Feedback-ID:Received:Received:From:To:Subject:Date; Feedback-ID: 20115:3760:null:purelymail X-Pm-Original-To: 73387@debbugs.gnu.org Original-Received: by smtp.purelymail.com (Purelymail SMTP) with ESMTPSA id -1308470953; (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Mon, 30 Sep 2024 13:27:46 +0000 (UTC) Original-Received: by melete.silentflame.com (Postfix, from userid 1000) id DE5C07E1FAB; Mon, 30 Sep 2024 14:25:26 +0100 (BST) In-Reply-To: <87ikudqocz.fsf@melete.silentflame.com> (Sean Whitton's message of "Mon, 30 Sep 2024 21:10:04 +0800") 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:292714 Archived-At: --=-=-= Content-Type: text/plain Hello, On Mon 30 Sep 2024 at 09:10pm +08, Sean Whitton wrote: > Hello, > > On Mon 30 Sep 2024 at 01:11pm +03, Dmitry Gutov wrote: > >> Just these two points: >> >> - add a command which does the kill-all-but-this-hunk (or hunks in >> region if mark active) thing -- it's generally useful. >> >> - make C-x v v on a narrowed buffer, by default, issue a message saying >> "Cannot commit patch when narrowed, consider " > > Okay, what do you think to the attached? Slightly simplified v2 attached -- uses mapconcat instead of (apply #'user-error ...). -- Sean Whitton --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=v2-0001-New-command-diff-delete-other-hunks.patch >From 61342a10072ddfb0e8f89fbfa5a86cd4284c3142 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 30 Sep 2024 21:08:38 +0800 Subject: [PATCH v2] New command diff-delete-other-hunks * lisp/vc/diff-mode.el (diff-delete-other-hunks): New command (bug#73387). (diff-mode-map): Bind the new command to C-c RET k. (diff-mode-menu): New entry for the new command. (vc-next-action): Stop, and warn, if the user attempts to commit a patch from a narrowed buffer (bug#73387). * doc/emacs/files.texi (Diff Mode): * etc/NEWS: Document the new command. --- doc/emacs/files.texi | 5 +++++ etc/NEWS | 5 +++++ lisp/vc/diff-mode.el | 35 +++++++++++++++++++++++++++++++++++ lisp/vc/vc.el | 11 +++++++++++ 4 files changed, 56 insertions(+) diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi index a3a8c854aa6..a32689552b1 100644 --- a/doc/emacs/files.texi +++ b/doc/emacs/files.texi @@ -1703,6 +1703,11 @@ Diff Mode Apply all the hunks in the buffer (@code{diff-apply-buffer}). If the diffs were applied successfully, save the changed buffers. +@findex diff-delete-other-hunks +@item C-c @key{RET} k +Delete all hunks other than the current hunk. If the region is active, +then delete all hunks other than those the region overlaps. + @findex diff-refine-hunk @item C-c C-b Highlight the changes of the hunk at point with a finer granularity diff --git a/etc/NEWS b/etc/NEWS index cdc7f47b7a9..90213cf342a 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -369,6 +369,11 @@ This command reverts the hunk at point (i.e., applies the reverse of the hunk), and then removes the hunk from the diffs. This is useful to undo commits when you are in buffers generated by 'C-x v =' and 'C-x v D'. ++++ +*** New command 'diff-delete-other-hunks' bound to C-c RET k. +This command deletes all hunks other than the current hunk. +It is useful to prepare a *vc-diff* buffer for committing a single hunk. + ** php-ts-mode --- diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 25c6238765d..ff141e19c50 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el @@ -220,6 +220,7 @@ diff-mode-map "C-c C-a" #'diff-apply-hunk "C-c M-r" #'diff-revert-and-kill-hunk "C-c C-m a" #'diff-apply-buffer + "C-c C-m k" #'diff-delete-other-hunks "C-c C-e" #'diff-ediff-patch "C-c C-n" #'diff-restrict-view "C-c C-s" #'diff-split-hunk @@ -278,6 +279,8 @@ diff-mode-menu :help "Kill current hunk"] ["Kill current file's hunks" diff-file-kill :help "Kill all current file's hunks"] + ["Delete other hunks" diff-delete-other-hunks + :help "Delete hunks other than the current hunk"] "-----" ["Previous Hunk" diff-hunk-prev :help "Go to the previous count'th hunk"] @@ -814,6 +817,38 @@ diff-hunk-kill (goto-char (car bounds)) (ignore-errors (diff-beginning-of-hunk t))))) +;; This is not `diff-kill-other-hunks' because we might need to make +;; copies of file headers in order to ensure the new kill ring entry +;; would be a patch with the same meaning. That is not implemented +;; because it does not seem like it would be useful to anyone. +(defun diff-delete-other-hunks (&optional beg end) + "Delete hunks other than this one. +Interactively, if the region is active, then delete all hunks that the +region does not overlap. +When called from Lisp, the region to act upon is specified by optional +arguments BEG and END." + (interactive (list (use-region-beginning) (use-region-end))) + (when (buffer-narrowed-p) + (user-error "Command is not safe in a narrowed buffer")) + (let ((inhibit-read-only t)) + (save-excursion + (cond ((xor beg end) + (error "Require exactly zero or two arguments")) + (beg + (goto-char beg) + (setq beg (car (diff-bounds-of-hunk))) + (goto-char end) + (setq end (cadr (diff-bounds-of-hunk)))) + (t + (pcase-setq `(,beg ,end) (diff-bounds-of-hunk)))) + (delete-region end (point-max)) + (goto-char beg) + (diff-beginning-of-file) + (diff-hunk-next) + (delete-region (point) beg) + (diff-beginning-of-file-and-junk) + (delete-region (point-min) (point))))) + (defun diff-beginning-of-file-and-junk () "Go to the beginning of file-related diff-info. This is like `diff-beginning-of-file' except it tries to skip back over leading diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 597a1622f5a..6ebfedc9555 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1302,6 +1302,17 @@ vc-next-action ;; Fileset comes from a diff-mode buffer, see ;; 'diff-vc-deduce-fileset', and the buffer is the patch to apply. ((eq model 'patch) + (when (buffer-narrowed-p) + ;; If user used `diff-restrict-view' then we may not have the + ;; file header and the commit will not succeed (bug#73387). + (user-error "Cannot commit patch when narrowed; consider %s" + (mapconcat (lambda (c) + (key-description + (where-is-internal c nil t))) + '(widen + diff-delete-other-hunks + vc-next-action) + " "))) (vc-checkin files backend nil nil nil (buffer-string))) ((or (null state) (eq state 'unregistered)) (cond (verbose -- 2.45.2 --=-=-=--