From 2e5d50ee43096ff5422c88f835ccceb1728def06 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Wed, 20 Dec 2023 18:08:03 +0100 Subject: [PATCH] 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 -- 2.39.5