tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix consult--read call for Org header args

This commit is contained in:
TEC 2021-10-16 17:35:48 +08:00
parent a7d697cf28
commit 22fca61bdb
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config.org
View File

@ -6473,7 +6473,7 @@ or no selection is made: nil is returned."
(propertize "(default)" 'face 'font-lock-doc-face)))
value))
values))
(let ((selection (consult--read question values :default default-value)))
(let ((selection (consult--read values :prompt question :default default-value)))
(unless (or (string-match-p "(default)$" selection)
(string= "" selection))
selection))))