[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 2f697cbe60 4/4: Make denote-sort-component-histo
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 2f697cbe60 4/4: Make denote-sort-component-history public |
Date: |
Sat, 20 Jan 2024 03:58:03 -0500 (EST) |
branch: externals/denote
commit 2f697cbe601484c7692fe841fec2845494129c3c
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Make denote-sort-component-history public
Same idea as with commit 90823f7.
---
denote-sort.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/denote-sort.el b/denote-sort.el
index d62e682103..21883c998a 100644
--- a/denote-sort.el
+++ b/denote-sort.el
@@ -136,17 +136,22 @@ With optional REVERSE as a non-nil value, reverse the
sort order."
current-file-type
id-only))
-(defvar denote-sort--component-hist nil
+(define-obsolete-variable-alias
+ 'denote-sort--component-hist
+ 'denote-sort-component-history
+ "3.0.0")
+
+(defvar denote-sort-component-history nil
"Minibuffer history of `denote-sort-component-prompt'.")
(defun denote-sort-component-prompt ()
"Prompt `denote-sort-files' for sorting key among `denote-sort-components'."
- (let ((default (car denote-sort--component-hist)))
+ (let ((default (car denote-sort-component-history)))
(intern
(completing-read
(format-prompt "Sort by file name component" default)
denote-sort-components nil :require-match
- nil 'denote-sort--component-hist default))))
+ nil 'denote-sort-component-history default))))
(defvar-local denote-sort--dired-buffer nil
"Buffer object of current `denote-sort-dired'.")