master 2e5d50ee430 5/5: Rename *basic symbols and words to traditional in register

[Thierry Volpiatto]

branch: master
commit 2e5d50ee43096ff5422c88f835ccceb1728def06
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Rename *basic symbols and words to traditional in register
    
    * lisp/register.el (register-use-preview): Do it.
    (register-read-with-preview-traditional): Renamed from
    register-read-with-preview-basic.
---
 lisp/register.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/register.el b/lisp/register.el
index c2b10a91adb..c5abcf45109 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -123,30 +123,30 @@ Called with one argument, a cons (NAME . CONTENTS) as 
found in `register-alist'.
 The function should return a string, the description of the argument.
 It is set according to the value of `register--read-with-preview-function'.")
 
-(defcustom register-use-preview 'basic
+(defcustom register-use-preview 'traditional
   "Maybe show register preview.
 
 This has no effect when `register--read-with-preview-function' value
-is `register-read-with-preview-basic'.
+is `register-read-with-preview-traditional'.
 
 When set to `t' show a preview buffer with navigation and highlighting.
-When nil show a basic preview buffer and exit minibuffer
+When nil show a preview buffer with no such features and exit minibuffer
 immediately after insertion in minibuffer.
 When set to \\='never behave as above but with no preview buffer at
-all.
-When set to \\='basic provide a much more basic preview according to
+all but the preview buffer is still accessible with `help-char' (C-h).
+When set to \\='traditional provide a much more basic preview according to
 `register-preview-delay', it has the exact same behavior as in Emacs-29."
   :type '(choice
           (const :tag "Use preview" t)
           (const :tag "Use quick preview" nil)
           (const :tag "Never use preview" never)
-          (const :tag "Basic preview like Emacs-29" basic))
+          (const :tag "Basic preview like Emacs-29" traditional))
   :version 30.1
   :set (lambda (var val)
          (set var val)
          (setq register--read-with-preview-function
-               (if (eq val 'basic)
-                   #'register-read-with-preview-basic
+               (if (eq val 'traditional)
+                   #'register-read-with-preview-traditional
                  #'register-read-with-preview-fancy))
          (setq register-preview-function nil)))
 
@@ -185,7 +185,7 @@ See the documentation of the variable `register-alist' for 
possible VALUEs."
   "Returns a function to format a register for previewing.
 This according to the value of READ-PREVIEW-FUNCTION.")
 (cl-defmethod register--preview-function ((_read-preview-function
-                                           (eql 
register-read-with-preview-basic)))
+                                           (eql 
register-read-with-preview-traditional)))
   #'register-preview-default)
 (cl-defmethod register--preview-function ((_read-preview-function
                                            (eql 
register-read-with-preview-fancy)))
@@ -433,7 +433,7 @@ If `help-char' (or a member of `help-event-list') is 
pressed,
 display such a window regardless."
   (funcall register--read-with-preview-function prompt))
 
-(defun register-read-with-preview-basic (prompt)
+(defun register-read-with-preview-traditional (prompt)
   "Read and return a register name, possibly showing existing registers.
 Prompt with the string PROMPT.  If `register-alist' and
 `register-preview-delay' are both non-nil, display a window