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:" (append (list "folder:" "thread:" "id:" "date:" "from:" "to:"
"subject:" "attachment:") "subject:" "attachment:")
(mapcar (lambda (tag) (mapcar (lambda (tag)
(concat "tag:" tag)) (concat "tag:" (notmuch-escape-boolean-term tag)))
(process-lines notmuch-command "search" "--output=tags" "*"))))) (process-lines notmuch-command "search" "--output=tags" "*")))))
(let ((keymap (copy-keymap minibuffer-local-map)) (let ((keymap (copy-keymap minibuffer-local-map))
(minibuffer-completion-table (minibuffer-completion-table