emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 62ffc8ce7b 2/3: Use boundp instead of bound-and


From: ELPA Syncer
Subject: [elpa] externals/consult 62ffc8ce7b 2/3: Use boundp instead of bound-and-true-p
Date: Wed, 23 Nov 2022 13:57:25 -0500 (EST)

branch: externals/consult
commit 62ffc8ce7b8d0bce11fc024a7ff1db108ac0d389
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use boundp instead of bound-and-true-p
---
 CHANGELOG.org | 1 +
 README.org    | 1 +
 consult.el    | 7 +++++--
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 8bdbf786fc..13bcac6850 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -10,6 +10,7 @@
   =(add-to-list 'register-alist '(?i file . "~/.emacs.d/init.el")))=.
 - Remove obsolete =consult-line-point-placement=
 - =consult-grep/find=: Always show directory in the prompt
+- Add variable =consult-yank-rotate=, =consult-yank-from-kill-ring= rotates 
kill ring
 
 * Version 0.20 (2022-10-16)
 
diff --git a/README.org b/README.org
index ed524ce3fb..38dfb091a3 100644
--- a/README.org
+++ b/README.org
@@ -924,6 +924,7 @@ an overview of all Consult variables and functions with 
their descriptions.
 | consult-ripgrep-args             | Command line arguments for ripgrep        
            |
 | consult-themes                   | List of themes to be presented for 
selection          |
 | consult-widen-key                | Widening key during completion            
            |
+| consult-yank-rotate              | Rotate kill ring                          
            |
 
 ** Fine-tuning of individual commands
 :properties:
diff --git a/consult.el b/consult.el
index 8b037a2790..bc9284f6ba 100644
--- a/consult.el
+++ b/consult.el
@@ -67,8 +67,11 @@
 
 ;;;; Customization
 
-(defcustom consult-yank-rotate (bound-and-true-p yank-from-kill-ring-rotate)
-  "Rotate the kill ring."
+(defcustom consult-yank-rotate
+  (if (boundp 'yank-from-kill-ring-rotate)
+      yank-from-kill-ring-rotate
+    t)
+  "Rotate the `kill-ring' in the `consult-yank' commands."
   :type 'boolean)
 
 (defcustom consult-narrow-key nil



reply via email to

[Prev in Thread] Current Thread [Next in Thread]