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

Function was pushed in an incomplete/invalid state 

So let's fill in the gaps
This commit is contained in:
TEC 2021-02-27 02:52:08 +08:00
parent 898fcc85af
commit 8360a3dc8f
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
config.org
View File

@ -5060,15 +5060,15 @@ or no selection is made: nil is returned."
default-value)
(setq values (mapcar
(lambda (value)
(if ((string-match-p (regexp-quote value) default))
(if (string-match-p (regexp-quote value) default)
(setq default-value
(concat value " "
(propertize "(default)" 'face 'font-lock-doc-face)))
value))
values))
(let ((selection (ivy-read question values :preselect default-value)))
(unless ((string-match-p "(default)$" selection)
(string= "" selection))
(unless (or (string-match-p "(default)$" selection)
(string= "" selection))
selection))))
#+end_src