master 598ab9ca10d: ; Fix documentation of register-preview changes

[Eli Zaretskii]

branch: master
commit 598ab9ca10d35d6990f9af3a4d58f265acd8b121
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; Fix documentation of register-preview changes
    
    * etc/NEWS: Fix wording of 'register-use-preview' entry.
    
    * lisp/register.el (register-use-preview): Doc fix.  Add ':version'.
---
 etc/NEWS         |  5 +++--
 lisp/register.el | 15 ++++++++-------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 6dd0f9b5e4e..60391cfb22e 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1176,8 +1176,9 @@ showcases all their customization options.
 
 ---
 ** 'register-preview-delay' is no longer used.
-Register preview is no more delayed.  If you want to disable it, use
-'register-use-preview' instead with a boolean value.
+Register preview is no longer delayed.  If you want to disable the
+preview, customize the new option 'register-use-preview' to the value
+'never'.
 
 +++
 ** 'M-TAB' now invokes 'completion-at-point' also in Text mode.
diff --git a/lisp/register.el b/lisp/register.el
index ade65b5bdc2..fa4bbcf483f 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -107,17 +107,18 @@ If nil, do not show register previews, unless `help-char' 
(or a member of
   :type '(repeat string))
 
 (defcustom register-use-preview t
-  "Maybe show register preview.
+  "Whether to show preview of registers.
 
-When set to `t' show a preview buffer with navigation and highlighting.
-When nil show a basic preview buffer and exit minibuffer
-immediately after insertion in minibuffer.
-When set to \\='never behave as above but with no preview buffer at
-all."
+If the value is t, show a preview buffer with navigation and highlighting.
+If the value is nil, show a basic preview buffer and exit minibuffer
+immediately after the register name is inserted into minibuffer.
+If the value is \\='never, behave as for nil, but with no preview buffer
+at all."
   :type '(choice
           (const :tag "Use preview" t)
           (const :tag "Use quick preview" nil)
-          (const :tag "Never use preview" never)))
+          (const :tag "Never use preview" never))
+  :version "30.1")
 
 (defun get-register (register)
   "Return contents of Emacs register named REGISTER, or nil if none."