ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Return nil instead of "" in completing readers.

Browse source 
* emacs/guix-utils.el (guix-completing-read): New procedure.
  (guix-define-readers): Use it.
This commit is contained in:
Alex Kost 2015-12-11 12:36:56 +03:00
parent ddf6948b22
commit dc690c445e
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/guix-utils.el
View file

@ -214,6 +214,15 @@ If NO-MESSAGE? is non-nil, do not display a message about it."
See also `guix-copy-as-kill'." See also `guix-copy-as-kill'."
(guix-copy-as-kill (guix-command-string args) no-message?)) (guix-copy-as-kill (guix-command-string args) no-message?))
(defun guix-completing-read (prompt table &optional predicate
require-match initial-input
hist def inherit-input-method)
"Same as `completing-read' but return nil instead of an empty string."
(let ((res (completing-read prompt table predicate
require-match initial-input
hist def inherit-input-method)))
(unless (string= "" res) res)))
(defun guix-completing-read-multiple (prompt table &optional predicate (defun guix-completing-read-multiple (prompt table &optional predicate
require-match initial-input require-match initial-input
hist def inherit-input-method) hist def inherit-input-method)
@ -460,7 +469,7 @@ keywords are available:
`(defvar ,completions-var nil)) `(defvar ,completions-var nil))
,(when single-reader ,(when single-reader
`(guix-define-reader ,single-reader completing-read `(guix-define-reader ,single-reader guix-completing-read
,completions ,single-prompt)) ,completions ,single-prompt))
,(when multiple-reader ,(when multiple-reader