emacs: Escape tag queries suggested by tab completion

This commit is contained in:
Austin Clements 2012-10-26 16:18:12 -04:00 committed by David Bremner
parent b235850f9b
commit 0a4663ff43

View file

@ -917,7 +917,7 @@ PROMPT is the string to prompt with."
(append (list "folder:" "thread:" "id:" "date:" "from:" "to:"
"subject:" "attachment:")
(mapcar (lambda (tag)
(concat "tag:" tag))
(concat "tag:" (notmuch-escape-boolean-term tag)))
(process-lines notmuch-command "search" "--output=tags" "*")))))
(let ((keymap (copy-keymap minibuffer-local-map))
(minibuffer-completion-table