branch: externals/denote-sequence
commit d96d510a69f0309a0ad85276cab87567b724d7b8
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make sure denote-sequence-depth-prompt use number as a default
---
denote-sequence.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index 29adf01edb..b17a2e8281 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -986,14 +986,17 @@ With optional PROMPT-TEXT use it instead of the generic
one.
With optional DEFAULT-VALUE use it as the default minibuffer value, else
use the `car' of `denote-sequence-depth-history', if any."
- (let ((default (or default-value (car denote-sequence-depth-history))))
+ (let* ((default (or default-value (car denote-sequence-depth-history)))
+ (default-number (if (stringp default)
+ (string-to-number default)
+ default)))
(read-number
(or prompt-text
(format "Get sequences up to this depth %s: "
(if (eq denote-sequence-scheme 'alphanumeric)
"(e.g. `1a2' is `3' levels of depth)"
"(e.g. `1=1=2' is `3' levels of depth)")))
- default
+ default-number
'denote-sequence-depth-history)))
(defun denote-sequence--get-dired-buffer-name (&optional prefix depth)
