GNU bug report logs - #76739
31.0.50; Register previews cannot be disabled

Previous Next

Full log

Message #20 received at 76739 <at> debbugs.gnu.org (full text, mbox):

From: Thierry Volpiatto <thievol <at> posteo.net>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: Thierry Volpiatto <thievol <at> posteo.net>, rudolf <at> adamkovic.org,
 76739 <at> debbugs.gnu.org
Subject: Re: bug#76739: 31.0.50; Register previews cannot be disabled
Date: Wed, 05 Mar 2025 06:53:35 +0000

[Message part 1 (text/plain, inline)]

Eli Zaretskii <eliz <at> gnu.org> writes:

>> From: Thierry Volpiatto <thievol <at> posteo.net>
>> Cc: Rudolf Adamkovič <rudolf <at> adamkovic.org>,  Thierry
>>  Volpiatto
>>  <thievol <at> posteo.net>,  76739 <at> debbugs.gnu.org
>> Date: Tue, 04 Mar 2025 17:46:59 +0000
>> 
>> Eli Zaretskii <eliz <at> gnu.org> writes:
>> 
>> > Thierry, could you please look into this?
>> 
>> Yes, I already replied, the problem is if one set this variable with
>> setq, the defcustom has a :set function.
>
> Yes, I saw it too late, thanks.
>
>> So from emacs -Q here:
>> 
>> (customize-set-variable 'register-use-preview 'never)
>> 
>> Then do 3) and 4) from the recipe above.
>> 
>> No preview, as expected.
>
> Right.  I've already updated the doc string to say using setq is not
> effective, so maybe this is all that's needed here.

Yes, for this it should be enough, however there is a little bug when
using never and trying to do C-h, the minibuffer exit with "No register
specified", which is wrong, the preview should popup with full
capabilities, here the needed changes:

diff --git a/lisp/register.el b/lisp/register.el
index 0e9d5676943..cb6d90d6a05 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -579,7 +579,9 @@ or \\='never."
                        (setq pat input))))
                  (if (setq win (get-buffer-window buffer))
                      (with-selected-window win
-                       (when noconfirm
+                       (when (or (eq noconfirm t) ; Using insist
+                                 ;; Don't exit when noconfirm == (never)
+                                 (memq nil noconfirm))
                          ;; Happen only when
                          ;; *-use-preview == insist.
                          (exit-minibuffer))

-- 
Thierry

[signature.asc (application/pgp-signature, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.