; Minor improvements of last change

* lisp/register.el (register-use-preview): Doc fix.
* doc/emacs/regs.texi (Registers): Fix wording.  (Bug#68654)

diff --git a/doc/emacs/regs.texi b/doc/emacs/regs.texi
index c30bcc37999a18f32df29574f93f1bdbf2d429e8..cac5b32c5666f32c33ae36d6e8b1ebaa4e64e009 100644 (file)
--- a/doc/emacs/regs.texi
+++ b/doc/emacs/regs.texi
@@ -72,9 +72,9 @@ inserted into the buffer, omitting registers which hold window
 configurations, positions, and other un-insertable values.
 
 @item insist
-This value is like @code{t}, but in addition of pressing @key{RET} to
-exit with the choosen value, you can press the same key as the name of
-register.
+This value is like @code{t}, but in addition you can press the same
+key as the name of register one more time to exit the minibuffer,
+instead of pressing @key{RET}.
 
 @item nil
 This value requests behavior similar to @code{traditional}, but the

diff --git a/lisp/register.el b/lisp/register.el
index 73d1b24b231d6faf0ad2919829557e36ab8a9d81..822467a0d72afc40c24d364bd2407ecba3280596 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -133,9 +133,10 @@ to the value of `register--read-with-preview-function'.")
 
 When set to `t', show a preview buffer with navigation and
 highlighting.
-When set to \\='insist behave as with `t' but allow exiting minibuffer
-by pressing a second time the selected register, e.g pressing \"a\"
-select register \"a\" and pressing again \"a\" exit minibuffer.
+When set to \\='insist, behave as with `t', but allow exiting the
+minibuffer by pressing the register name a second time.  E.g.,
+press \"a\" to select register \"a\", then press \"a\" again to
+exit the minibuffer.
 When nil, show a preview buffer without navigation and highlighting, and
 exit the minibuffer immediately after inserting response in minibuffer.
 When set to \\='never, behave as with nil, but with no preview buffer at
@@ -145,7 +146,7 @@ according to `register-preview-delay'; this preserves the traditional
 behavior of Emacs 29 and before."
   :type '(choice
           (const :tag "Use preview" t)
-          (const :tag "Use preview and exit on second hit" insist)
+          (const :tag "Use preview and exit by pressing register name" insist)
           (const :tag "Use quick preview" nil)
           (const :tag "Never use preview" never)
           (const :tag "Basic preview like Emacs-29" traditional))